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1,0 GENERAL INFORMATION 

i.l PROGRAM ABSTRACT 

THIS IS A PDP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THL FUNCTIONALITY 
OF A TSV05 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP11//23 SYSTEM 
(Q-BUS). THE PROGRAM PPOVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE, 



OF 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). 
THE INTERFACE TO THE OPERATOR AND TO THE 
THIS PROGRAM CAN BE USED WITH XXOP ♦ . ACT 
TAPE. FOR A COMPLETE DESCRIPTION OF THE 
TO THE XXDP* USER'S MANUAL. THERE IS A 



WITH THE DIAGNOSTIC 
TH^SE SERVICES PROVIDE 
SOFTWARE ENVIRONMENT. 

. APT, SLIDE AND PAPER 
RUNTIME SERVICES, REFER 

BRIEF DESCRIPTION OF 



THE RLNT1ME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-ll/23 PROCESSOR ANO MEMORY 

CAUTIONjDIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVEO FOR I/O PAGE) 

TSV05 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SyS VERSION 34 OR LATER) 

PDP-11 DIAGNOSTIC LOADER /MONITOR (XXDPO 



1.3 RELATED DOCUMENTS ANO STANOARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS; 



I. 
2. 
3. 

4. 



CHQUS XXDP* USERS MANUAL} 
DATE: 14 JULY 1980. 



DOCUMENT NUMBER AC-F348E-MC 



TSV05 TRANSPORT SUBSYSTEM USER'S GUIDE: DOCUMENT NUMBER EK • TSV05 -UG -001 
DATE; AUGUST 1982 

TSV05 TRANSPORT SUBSYSTEM TfcCHNICAL MANUAL , DOCUMENT NUMBER EK - TSV05- TM-001 
DATE: AUGUST 1982 

TSV05 TRANSPORT SUBSYSTEM INSTALLATION MANUAL | DOCUMtNT NUMBER EK-TSVOt)*IN-QQi 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARC* PREREQUISITES 

FUNCTIONAL POP 11 '23 CENTRAL PROCESSOR AND MFMQRt 
FUNCTIONAL CONSOLE TERMTNAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
PUNCILUML DIAGNOSTIC LQAD£R/MQNXIQB CXXD1»*1 



El 
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1.5 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 

PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TS05 TRANSPORT IS A KNOWN GUOD REEL 

OF TAPE. 

CVTSAA.CVTSBA AND CVTSCA HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMHANOS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 

COMMANO EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETlHN TO XXDP» MONITOR CXXDP* OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4 4 0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION *?.3) 

A COMMANO CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF "START". 

*?.i.l OPERATOR COMMANDS 



THE TSV05 DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 

CHQUS XXOP* USERS MANUAL .DOCUMENT NUMBER AC-F346E-MC, THE USER ENTRY IS IN QUOTES, 

BOOT THE DIAGNOSTIC XXDP MEDIA 

.R VTSD?? 

OIAG. RUN TIME SERVICES REV D. APR 79 

CVTSD-B-0 

•••♦TSVQ5 lOGlQ DIAGNOSTIC**** 

UNIT IS TSWft 

**DR 



Fl 
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2,2 SUITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION, 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD", 

SWITCH EFFECT 



/TESTS;LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST, LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS: 1 :5: 7 - 10, 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN, ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:DDDDD EXECUTE DDDDD PASSES CDODOD • 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

IN SECTION 2.3, 

/EOP:ODDDD REPORT ENO OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY, (DOODD • 1 TO 64000) 

/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS :0:5: 10 -12 
USE UNITS 0,5,10,11.12 (UNIT NUM8ERS * 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1 -5/PASS: 1000/EOP: 100 

THE EFFECT OF THIS COMMANO WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, c) ALL WITS WILL TESTED 1000 TIMES AND 3) THE ENO OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY, A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS, YOU MAY, 
FOR EXAMPLE, TYPE "/TES:l~5" INSTEAD OF "/TESTS: 1 -5" , 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED B^ EACH 
COMMANO . 





TESTS 


PASS 


FLAGS 


EOP 


UNI 


START 


X 


X 


X 


X 


X 


RESTART 


X 


X 


X 


X 


X 


CONTINUE 




X 


X 


X 




PROCEED 






X 






DROP 










X 


ADD 










X 


HUNT 












DISPLAY 










X 


FLAGS 












JTFIAGS 












EXIT 













2.3 FLAGS 

FLAG^ ARE USED TO SET \JP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR, Alt FLAGS ARE CLEARED AT STARTUP AND RtMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH, FLAGS 
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ARE ALSO CLEARED AFTER P ST/*RT COMMAND UNLESS SET USING THE 
FLAG SWITCH, THE /FLP'oS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE HXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THi STATE OF THE FLAGS} THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 

FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

I Of LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL " ON ERROR 

UAM LNAT TENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFi MORE TUM ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGS:LOE:IER:BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 
tOU MUST ANSWER "Y" AFTER A START COMMANO UNL C .SS THE HARDWARE 
INFORMATION HAS BEEN "PREL0A0ED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A " i '• . THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING C» TmE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO Bfc CHANGED (BY THE OPERATOR). 

ON A -H- (NO) RESPONSE TO THE CHANGE HW?" QUESTION, THE DIAGNOSTIC Wit L 

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARb 



USER DOCUMENTATION 



HI 



MACRO Mill? 06 FEB -84 18-04 



SEQ 007 



TSBA/TS09 - 172520, VECTOR - 224 



ON A "V (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE, A "(D)" IN A QUESTION INOICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "CD" INOICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y" FOR YES, *'N" FOR NO. 



UNITS (D) ? 



<ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED* 



UNIT 



DEVICE ADDRESS 
VECTOR (0) 224 ? 



CO) 172520 ? < ENTER THE ADDRESS OF THE 
TSBA/T5DB REGISTER* 

<ENTER ADDRESS OF INTERRUPT 
VECTOR* 



THE ADDRESS ANO VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "# UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 
UP TO 4 TSV05 CONTROLLERS PER 11/23 ANO UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINLt COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS, THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES, YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETFRS, ANSWER B> TYPING 

"Y". THE SOFTWARE QUESTIONS ANO THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHCS). 



THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 



OR CONTINUE 



CHANGE SW CD ? 



<TYPE t TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 



INHIBIT ITERATIONS (D N ? 



EXTENDED P TABLfc DIALOGUE 



<TYPF »Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLT AS POSSIBLE, 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.* 



WHEN 1QU- ANSWER THE HARDWARE QUESTIONS* 1QU ARE BUILDING ENTRIES 



II 
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IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO Bf TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MO«E EFFICIENT METHOD. SUPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT, 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS THROUGH 7. THERE 
IS OI-.E HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q FACTOR, THIS Q-FACTOR MAY BE OR I . BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS, 

UNITS CD) ? 8<CR> 

UNxT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB DEVICE # (0) ? 0<CR> 
Q-FACTOR (0) ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 1<CR> 
Q-FACTOR (0) 1 ? 0<CR> 

i.tr * s 

Cr»K ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 2<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DtVICE (0) ? 3<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 5 

CSR ADDRESS CO) ? 160000<CR> 
SL8 DEVICE (0) ? 4<CR> 
Q-FACTOR (0) ? <CR> 

LNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 5<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DtVICE * CO) ? 6<CR> 
Q-FACTOR (0) ? 1<CR> 

UNIT 8 

CSR ADDRLSS (0) 160000* CP» 

SUB DEVICE * CO) ? 7<CR> 
Q-FACTOR CO) 1 ? <CR* 



USER DOCUMENTATION 



Jl 



MACRO M1113 06 -FEB -84 18:04 



SEQ 009 



NOTTCE THAT THE OEFAULT VALUE FOR THE U-FACTCl CHANGES WHEN A 
NON-OEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIV. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT, 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

UNITS (D) ? 8<CR> 

UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 0,1<CR> 
Q-FACTOR (0) ? 1,0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE 9 (0) ? 2-5<CR> 
Q-FACTOR (0) ? 0<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICF o CO) ? 6,7<CR^ 
Q-FACTOR CO) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TwO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES ANO Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB -DEVICES WERE SPECIFIED. THE 
*'-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECONO. IN THIS CASE. SUB -DEVICES 
2. 3. 4 ANO 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE Bt ? SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY . ) THE CSR ADDRESSES AND Q FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED T(? BE 160000 ANO RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE UHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOJ. 

* UNITS CD) ? 8<CR> 

UMT 1 

CSR ADChESS (0) ? 160000<CM> 

SU8-DEVICE (0) ? 0-7<CR» 

Q FACTOR (0) ? 0. 1 ,0, , , , 1 , 1 <CR - 

AS rOU CAN SEE f ROM THIS EXAMPLE. NU_L REPLIES (COMMAS ENCLOSING 
A NULL FIELO> TELL THE RUNTIME SE'RV *CES TU REPEAT THE LAST RfcPLt. 
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2,7 QUICK START-UP PROCEDURE (XXDPO 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP* 

2. GIVE THE OATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSUER THE "CHANGE HU" QUESTION U A TH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY 1HE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS, THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2,3 ANC 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL , BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLt °,S THE "IER" FLAG IS SET (SECTION 2,3). 
THE GENERAL ERROR MESSAGt IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE} NAME - DIAGNOSTIC NAME 

TYPE ■ ERROR TYPE (SYS FATAL, DEV FATAL HARD OR SOFT) 

NUMBER • ERROR NUMBER 

UNIT NUMBER ■ - N (N IS LAST LNIT IN PTABLE^ 

TST NUMBER - TEST ANO SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX ■ ADDRESS OF ERROR MESSAGE CALL 

"BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE. ASSOCIATED GENERAL MESSAGE. 

EXTENOED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER", "IBR" OR "IXE" FLAGS ARE SF T (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3, a SPECIFIC ERROR MESSAGES 
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SEQ Oil 



BELOW ARE SAMPLE ERROR MESSACES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 

ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REG..ST'? BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THt THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CVTSD HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNALS IN WORD 08: - DESIGNATOR 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> 
IRESV2<14> IIDENT<11> IHER <8> I0NL'5> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 

TAPE BUS SIGINALS IN WORD 09; 
DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 

MESSAGE BUFFER ADDRESS - 047552 

MESSAGE BUFFER CONTENTS: 
WORD 00 EXPO: 100020 RECV: 



<BT.T 0> 
IRWD<2> 
IFRY<1> 
IFPT<0> 



WORD 01 EXPO: 
WORD 02 EXPO; 
UO«D 03 EXPO: 
WORD 04 EXPD- 
WORD 03 E yr V : 
WORD 06 EXPO: 
WORD 07 EXPO: 
WORD 08 EXPO: 
WORD 09 EXPO: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000074 



RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
RECV; 
RECV: 
RECV; 



100020 
000012 
000000 
000010 
000000 

oooooo 

000000 

oooooo 

070217 
000034 



XOR- 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE ,IN THIS 

INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 



CVTSD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR - 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE 

PACKET ADDRESS - 026420 

PACKET WORD - 140010 

PACKET WORD - 000010 

PACKET WORD - OOOOOO 

PACKET WORD » 000024 



UNRECOVtRABL' ERROR 



ERROR MESSAGE LXAMPLE 5 
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TillS ERROR SHOWS T! AT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 

CVTSD HRD EPR 00121 ON UNIT 00 TST 001 SUQ 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES, 

SUCCESSFUL RUN EXAMPLE (PDP- 1.1/23) 

DR>STA/FLA:PNT:HOE 

UNITS (D) ? 1 

UNIT 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR CO) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMANO 'JILL Si ART THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR", 

TST: 001 SKIP TAPE MARKS TEST 

TST: 002 NO-OP ANO INITIALIZE TEST 

TST: 003 ERASE ANO OPERATION INCOMPLETE TEST 

TST: 004 DATA PARITY TEST 

TST: 005 TEST OF OPERATIONS AT EOT TEST 

TST: 006 EXTENDED-MODE FUNCTIONS TEST 

TST: 007 RECOflD BUFFERING TEST 

TST: 006 FUNCTION TIMING TEST 

ERRORS 

NOTE: THE DIAGNOSTIC Will HUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 
PROCESSOR WITH A LA34 CONSOLE. 



USER DOCUMENTATION 



MACRO M1113 06-FEB-84 18 



Nl 



SEQ 013 



THE PROGRAM RUNS IN TWO MOOES NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" CYES), 



TEST 


N/I 


NUMBER 


DEF 


NUMBER 


SECS. 


ITER 


SECS 


t 




2 


1 


2 




1 





3 




1 





A 




1 





5 




1 





6 




1 





7 




1 





8 


1 


1 






THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 



Q.V. 
DEFAULT 



15 SECONDS 

16 SECONDS 



5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA THE STACRn COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P -TABLES PARAMETER 
CHANGES: 



CHANGE HW (L) ? 



UNITS (D) ? 



<ENTER THE NUH3ER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED* 



UNIT 

DEVICE ADDRESS (0) 172520 ? 



<ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER* 



VECTOR CO) 224 ? 



<ENTER ADDRESS OF INTERRUPT 
VFCTOR> 



THE AODRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION. LOGICAL 'JMT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN ADDITION, ON A STA..T, RES T ART 
REQUESTS CHANGES TO THE SOFTWARE 
FOLLOWS; 



Gi* CONTINUE THE SUPERVISOR 
OPERATING PARAMETERS, AS 



B2 

USER DOCUMENTATION MACRO MU13 06 -FEB -84 18t04 SEG OH 

CHANGE SW CD ? 
INHIBIT ITERATIONS CD N ? 

6.0 TEST SUMMARIES 

TEST 1: WRITE TAPE MARK RETRY 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND CSPACE 
REVERSE. ERASE, WRITE TAPE MARK). 

TEST ^: SKIP TAPE MARKS 

THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD ANO SKIP TAPE MARKS REVERSE COMMANOS . PROPER OPERATION 
UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
STOP CESS) AND FNA8LE TAPE MARKS STOP OFF BOT CEN8) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMANO. 

TEST 3: NO-OP C "CLEAN TAPE") AND INITIALIZE 

THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP C "CLEAN TAPE") AND INITIALIZE 
COMMANO CSPACE REVERSE, ERASE. WRITE DATA) 

TEST 4: ERASE ANO OPERATION INCOMPLETE 

VERIFIES THAT AN ERASE COMHAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 

TEST 5; DATA PARTTY TEST 

THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER ANO THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITi TO &E 
WRITTEN ONTO TAPE ANO CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 

TEST 6j OPERATIONS AT EOT 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMANO CSPACE REVERSE, ERASE, WRITE DATA) 

TEST 7 { EXTENDED MODE FEATURES 

THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
THE CONTROLLER IS IN THE EXTENDED FEATURES MODE, THESE COMMANDS 
AREt 

REWIND WITH IMMEDIATE INTERRUPT 



c 






USER DOCUMENTATION MACRO M1113 06-FEB-84 18:04 5EQ 015 

ir THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 

TEST 8; RECORD BUFFERING 

THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANOS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7196 CONTROLLER MODIA.E IS NOT ALREADY IN EXTENDED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE). IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ ANO WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 

TEST 9; FUNCTION TIMING 

THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS, GAPS. ANO EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SKIP TAPE MARKS COMMANO WITH A COUNT OF 6 OF MORE, OPERATE THE 
TAPE IN HIGH-SPEED MOOE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS. USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 



7.0 MAINTENANCE HISTORY 

REVISION A - MARCH 1982 

REVISION B - APRIL 1983 

• FIXEO TWO PROBLEMS. ONE IN TEST 1 AND THE 
OTHER IN TEST 8. 

REF. DOYLE TO GRASKY "TSV05 CVTSDA DIAGNOSTIC 
PATCH"; 23-DEC-02. 



TSV2 • PROGRAM HEADER MACRO MU13 06 FEB-84 18;04 



D2 



SEQ 016 



5 

4 
10 

11 000000 
12 
13 

1* 000000 
20 

21 002000 
002000 
22 
25 
24 
25 
26 
27 

28 002000 

29 002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
00201b 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
QQ2Q42 



.TITLE TSV2 • PROGRAM HEADER 
.SBTTL PROGRAM HEADER 



002000 



103 
126 
124 
123 
104 
000 
000 
000 

102 

060 

000000 

0012X7 

105546 

105700 

002150 

002160 

106404 

000000 

000000 

000000 

000000 

002124 



TSV2:s 



I * ♦ 



.MCALL SVC 
SVC 

.ENABLE LC 

.NLIST BEX.CND 

.ENABL ABS,AMA 
.-2000 

BGNMOO TSV2 



j INITIALIZE SUPERVISOR MACROS 



l THE PROGRAM HEADER IS THE INTERFACE BETUEEN 
j ME DIAGNOSTIC PROGRAM AND THE SUPERVISOR, 



L*NAME: 



POINTER BGNSW , BGNSF T , BGNAU , BGNDU , BGNRP T 
HEADER CVTSD,B»0 # 655, ,0 

{DIAGNOSTIC NAME 





.ASCII 


/C/ 




.ASCII 


/v/ 




.ASCII 


/T/ 




.ASCII 


/S/ 




.ASCII 


/D/ 




.BYTE 







.BYTE 







.BYTE 





L$RF.V:: 








.ASCII 


/8/ 


L$DEP0; 








' .ASCII 


/o/ 


L$UNIT: 








'.WORD 





L$TIMl .■ 








' . WORD 


655. 


LIHPCP: 








* .WORD 


LiHARD 


L$SPCP: 








' .WORD 


LISOKT 


LiHPTP: 








* .WORD 


L*HW 


LiSPTP: 








* .WORD 


L»SW 


L$LAOP: 








' .WORD 


LiLAST 


LtSTA- 








.WORD 





LJCO: t 








.WORD 





LIOTYP: 


j 






.WORD 





L$APT: : 








.WORD 





L$DTP : : 








.WORD 


LMUSP 


LiPRIO; 


* 





{REVISION LEVEL 
10 

{NUMBER OF UNITS 
{LONGEST TEST TIME 
{POINTER TO H.W. QUES. 
{POINTER TO S.W, QUES. 
jPTR. TO DEF. H.W. PTABLE 
|PTR, TO S.W. PTABLE 
iDIAG. END ADDRESS 
{RESERVED FOR APT STATS 

{DIAGNOSTIC HPE 

,APT EXPANSION 

} PTR. TO DISPATCH TARl E 
CM 

{DIAGNOSTIC RUN PRIORITY 



E2 



TSV^> - PROGRAM 


HEADER MACRO 


M1113 06-FEB-84 


18; 04 




PROGRAM HEADER 










00204,? 


000000 




.WORD 





002044 




LSENVI: 






002044 


000000 




'.WORD 





002046 




L$EXPlj 






002046 


000000 




' .WORD 





002050 




LtHREVi 






002050 


003 




'.BYTE 


CJREVIS 


002051 


003 




.BYTE 


CREDIT 


002052 




L$EFs: 






002052 


000000 




.WORD 





002054 


000000 




.WORD 





002056 




L*SPC:i 






002C56 


000000 




.WORD 





002060 




L$DEVP: 






002060 


003374 




'.WORD 


L$DVTYP 


002062 




L*REPP: 






002062 


022744 




* . WORD 


LJRPT 


002064 




L$EXP4t 






002064 


000000 




'.WORD 





002066 




LtEXP5: 






002066 


000000 




* . WORD 





002070 




LSAUT;; 






002070 


022432 




. WORD 


LiAU 


002072 




L$DUT;: 






002072 


022530 




.WORD 


LiDU 


002074 




L*LUN:; 






002074 


000000 




.WORD 





002076 




LiDESP: 


♦ 




002076 


003402 




.WORD 


LfDESC 


002100 




L$LOA0i 


j 




002100 


104035 




EMT 


EILOAD 


002102 




L$ETP:j 






002102 


000000 




.WORD 





002104 




L1ICP:: 






002104 


021636 




.WORD 


LIINIT 


002106 




LtCCP:: 






002106 


022716 




.WORD 


LtCLEAN 


002110 




LIACP:: 






002110 


022636 




.WORD 


L$AUTO 


002112 




L*PRT;; 






002112 


021626 




.WORD 


L$PROT 


002114 




LATEST: 


. 




002114 


000000 




* . WORD 





002116 




L iDL Y : : 






002116 


000000 




.WORD 





002120 




LtHlMEi 


» 




002120 


OOQOOO 




*WQRD 






SEQ 017 



jFLAGS DESCRIBE HOW IT WAS SETUP 

I EXPANSION WORD 

{SVC REV AND EDIT 
ON 

jDIAG, EVENT FLAGS 



l POINTER TO DEVICE TYPE LIST 
;PTR, TO REPORT CODE 



jPTR. TO ADD UNIT CODE 

jPTR. TC DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

{POINTER TO DIAG. DESCRIPTION 

^GENERATE SPECIAL AUTOLOAD EMT 

jPOINTER TO ERRTBL 

jPTR. TO INIT CODE 

jPTR, TO CLEAN-UP CODE 

;PTR. TO AUTO CODE 

iPTR. TO PROTECT TABLE 

j TEST NUMBER 

jDt'LAY COUNT 

jPTR, TQ HIGH MEM 



TSV2 


- PROGRAM 


HEADER 


DISPATCH TABLE 






31 








3? 








33 








34 








35 








36 








3? 








38 


002122 








002122 


000011 






002124 








002124 


023526 






002126 


032334 






002130 


041432 






002132 


046770 






002134 


053046 






002156 


056042 






002140 


063414 






002142 


073344 






002144 


101120 




39 







F2 



MACRO MU13 06-FEB-84 18:04 



SEQ 018 



.SBTTL DISPATCH TABLE 



j THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST 
\ IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST, 
I -- 



DISPATCH 9 


.WORD 


9 


L$DISPATCHi: 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


.WORD 


T6 


.WORD 


T9 



G2 



TSV2 PROGRAM HEADER MACRO M1113 
DEFAULT HARDWARE P- TABLE 



06-FEB-84 18:04 



SEQ 019 



41 
42 
43 
44 
45 
46 
4 7 
48 



49 
50 
51 
52 
53 



.SBTTL DEFAULT HARDWARE P-TABLE 



j THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



002146 
002146 
002150 
002150 

002150 
002152 
002154 
002156 
002156 



000003 



172520 
000224 
000200 



L*HW: : 
DFPTBL:: 



BGNHW 
.WORD 



L 10000: 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000-L$HW/2 



172520 
224 
PR 104 



{DEFAULT HARD-P-TABLE 



i 1ST (OF 2) REGISTERS 
j INTERRUPT VECTOR 
i INTERRUPT PRIORITY. 






TSV2 PROGRAM 


HEADER 


SOFTWARt 


. P* TABLE 


55 






56 






57 






58 






59 






6o 






61 


002156 






002156 


000004 




002160 






002160 




62 






63 


002160 


000000 


64 


002162 


000000 


65 






66 






67 


00;>164 


000017 


68 


002166 


000310 


69 


002170 
002170 




70 






71 


002170 





MACRO M1113 06-FEB-84 18;04 



3EQ 020 



.SBTTL SOFTWARE P-TABLE 



THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



i - • 



L>bW: : 
SFPTBL: 



BGNSW 
.WORD 



SFPTBL 
L10001-LJSW/2 



TRANSTSTji 
NOITS:: 



LERRMAX:: 
GERRMAX:: 

ENDSW 
LlOOOlj 



.WORD 
.WORD 



.WORD 
.WORD 



15. 
300. 



ENABLE TEST OF TRANSPORTS ) IF »1 

INHIBIT ITERATION OPTION. 

... • ITERATE. 

. ..NZ - INHIBIT ITERATE. 

LOCAL (PER TEST) ERROR LIMIT 

GLOBAL (PER UNIT) ERROR LIMIT 



ENDMQD 



12 



TSV3 - GLOBAL AREAS 
SOFTWARF P. TABLE 



7 

8 

13 

19 

20 



002170 
002170 



21 

a^ 

23 
24 
25 
26 
27 
28 
32 002170 



100000 
040000 
020000 
010000 
004000 
002000 
00 1000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000OO1 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
00003S 
000034 



MACRO M1113 06-FEB-84 18:04 



.TITLE 

.SBTTL 



SEQ 021 



TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



TSV3: j 



; * ♦ 



BGNMOD TSV3 



,SBTTL GLOBAL EQUATES SECTION 



{ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i ARE USED IN MORE THAN ONE TEST. 



j GET STANDARD EQUATES 





EQUALS 


i BIT DIFINITIONS 


BIT15-- 


100000 


BIT14-. 


• 40000 


BIT13-' 


■ 20000 


BIT12-' 


• 10000 


BIT11-. 


■ 4000 


BIT10-- 


- 2000 


BIT09-* 


• 1000 


BIT08-- 


• 400 


BIT07-- 


■ 200 


BIT06- 


• 100 


BIT05-< 


■ 40 


BIT04- 


■ 20 


BIT03-< 


' 10 


BIT02-' 


• 4 


BIT01-- 


• 2 


BITOO-' 


' 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


B1.2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



; EVENT FLAG DEFINITIONS 

j F.F32.-EF17 RESERVED FOR SUPERVISOR 

EF.START-* 32. 

RF. RESTART-- 31. 

EF, CONTINUE-- 30. 

EF.NEW-- 29. 

JF.PWR-- 28. 

| PRIORITY LtVtL DEFINITIONS 



TO PROGRAM COMMUNICATION 



j START COMMAND WAS ISSUED 

} RESTART COMMANO WAS ISSUED 

i CONTINUE COMMAND WAS ISSUED 

i A NEW PASS HAS BEEN STARTED 

1 A POWER -FAIL/POWER -UP QCCURR&P 



TSV5 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



MACHO M1113 06-FEB-84 18:04 



J2 



SEQ 022 



33 

34 002170 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
C 04 000 
010000 
020000 
040000 
100000 



000250 

177572 
177574 
177' 76 
172516 



PRI07- 
PRI06- 
PRI05- 
PRI04- 
PRT03* 
PRI02- 
PRI01- 
PRIOO- 



340 

300 

240 

200 

140 

100 

40 





OPERATOR FLAG BITS 



EVL- 
LOT- 
ADR- 
IDU- 
ISR- 
UAM- 
BOE- 
PNT- 
PRI- 
IXE- 
IBE« 
IER- 
LOE- 
HOE- 



.SBTTL 

j*KTH 

MMVEC- 

{♦KT11 

SRO- 

SR1- 

SR2» 

SR3- 

. IF NB 

{♦USER 

UIPDRO 

UIPDR1 

UIP0R2 

UIP0R3 

UIPDR4 

UIPDR5 

UIPDR6 

UIP0R7 

,IF N6 

{♦USER 

UOPORO 

UOP0R1 

U0PDR2 

U0PDR3 

UOP0R4 

UOP0R5 

UOP0R6 

UOP0R7 

♦ ENDC 



4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 

KT11 

MEMORY MANAGEMENT DEFINITIONS 
VECTOR ADDRESS 

250 
STATUS REGISTER ADDRESSES 

177572 

177574 

177576 

172516 

"I" PAGE DESCRIPTOR REGISTERS 

• 177600 

• 177602 

• 177604 

• 17 7606 

- 177610 

- 177612 

• 177614 

- 177616 

"D" PAGE DESCRIPTOR R&GISTQRS 

■ 177620 

- 177622 

■ 177624 

• 177626 

- 177630 

- 177632 

• 177634 

• 177636 



{DEFINE MEMORY MANAGEMENT REGISTERS 



I<2 



TSV3 - GLOBAL AREAS MACRO M1113 
MEMORY MANAGEMENT DEFINITIONS 



06-FEB-84 16t04 


SI 


{♦USER "I" PAGE 


ADDRESS REGISTERS 


UIPARO- 177640 




UIPAR1- 177642 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAR4- 177650 




UIPAR5- 177652 




UIPAR6- 177654 




UIPARV- 177656 




.IF NB 




{♦USER "0" PAGE 


ADDRESS REGISTERS 


UOPARO- 1776b0 




U0PAR1- 17 7662 




U0PAR2- 177664 




U0PAR3- 177666 




U0PAR4- 177670 




U0PAR5- 177672 




U0PAR6- 177674 




U0PAR7- 177676 




.ENOC 




.ENDC 




.IF N8 




{♦SUPERVISOR "I' 


' PAGE DESCRIPTOR REGISTERS 


SIPORO- 172200 




SIP0R1- 172202 




SIPDR2- 172204 




SIPDR3- 172206 




SIP0R4* 172210 




SIPDR5- 172^12 




SIP0R6- 17P-14 




SIPDR7- 172216 




.IF NB 




{♦SUPERVISOR "D- 


1 PAGE DESCRIPTOR REGISTERS 


SDPDRO- 172220 




SDP0R1- 172222 




S0P0R2- 172224 




SDP0R3- 172226 




S0P0R4- 172230 




S0PDR5- 172232 




S0PDR6- 172234 




SDPDR7- 172236 




.ENOC 




{♦SUPERVISOR "I 1 


" PAGE ADDRESS REGISTERS 


SIPARO- 172240 




SIPAR1- 172242 




SIPAR2- 172244 




SIPAR3- 172246 




SIPAR4- 172250 




SIPAR5- 172252 




SIPAR6- 172254 




SIPAR7- 172256 




.IK N6 




{♦SUPERVISOR "0' 


" PAGE ADDRESS REGISTERS 


SDPARO- 172260 




S0PAR1- 172262 




S0PAR2- 172264 




S0PAR3" 172266 





SEQ 023 



n 



TSV3 - GLOBAL AREAS MACRO M1113 
MEMORY MANAGEMENT DEFINITIONS 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



06-FEB-84 18;04 


SDPAR4- 


172270 


5DPAR5- 


172272 


SDPAR6- 


172274 


SDPAR7- 


172276 


.ENDC 




.ENDC 




{♦KERNEL "I" PAGE DESCRIPTOR REGISTERS 


KIPDRO- 


172300 


KIPDR1- 


172302 


KIPDR2- 


172304 


KIPDR3- 


172306 


KIPDR4- 


172310 


KIPDR5- 


172312 


KIPDR6- 


172314 


KIPDR7- 


172310 


.IF N8 




{♦KERNEL "0" PAGE 


DESCRIPTOR REGISTERS 


KDPDRO- 


172320 


KDPDR1- 


172322 


KDPDR2- 


172324 


KDPDR3- 


172326 


KDPDR4- 


172330 


KDPDR5- 


172332 


KDPDR6- 


172334 


KDPDR7- 


172336 


.ENDC 




{♦KERNEL "I" PAGE ADDRESS REGISTERS 


KIPARO- 


172340 


KIPAR1- 


172342 


KIPAR2- 


172344 


KIPAR3- 


172346 


KIPAR4- 


172350 


KIPAR5- 


172352 


KIPAR6- 


172354 


KIPAR7- 


172356 


.IF NB 




{♦KERNEL "D" PAGE ADDRESS REGISTERS 


KDPARO- 


172360 


.(0PAR1- 


172362 


KDPAR2- 


172364 


KDPAR3- 


172366 


KDPAR4- 


172370 


KDPAR5- 


172372 


KDPAR6- 


172374 


KDPAR7- 


172376 


.ENDC 





SEQ 024 
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M2 



SEQ 025 



39 




40 




41 




42 




43 




44 




45 


000004 


46 


000060 


47 


177560 


48 


177562 


49 


177520 


50 




51 




52 




53 




54 




55 


100000 


56 


040000 


57 


020000 


58 


010000 


59 


004000 


60 


002000 


61 


001400 


62 


000200 


63 


000100 


64 


000060 


65 


000016 


66 




o7 




68 




69 




70 




71 




72 




73 




74 


100000 


75 


040000 


76 


020000 


77 


010000 


78 


00*000 


79 


002000 


80 


001000 


81 


000400 


82 


000200 


83 


0^0100 


84 


( J40 


85 


000020 


86 


000010 


87 


000004 


88 


000002 


89 


000001 


90 




91 




92 




93 




94 




95 


100000 



.SBTTL TSV05 REGISTER AND PACKET DEFINITIONS 



SOME GENERAL EQUATES 



ERRVEC-- 


4 


TTIVEC-- 


60 


TTICSR-- 


177560 


TTIBFR-- 


177562 


BDVPCR-- 


177520 



; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
j INTERRUPT VECTOR FOR CONSOLE INHJT 
{ BUS ADDRESS OF CONSOLE INPUT 
5 CONSOLE INPUT DATA BUFFER 
I BDV11 PAGE CONTROL REGISTER 



i BIT DEFINITIONS FOR TSSR REGISTER 
j - 



; SPECIAL CONDITION 

j BUS INTERFACE ERROR 

: SANITY CHECK ERROR 

{MODIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

i NEED BUFFER ADDRESS 

{EXTENDED ADDRESS BITS 

j SUB SYSTEM READY 

;OFF LINE BIT 

{FATAL TERMINATION ERROR CODES 

{TERMINATION CODES 



BIT DEFINITIONS FOR EXTENDED ST/; '.US REGISTER 
CXSTO) 



sc- 


BIT15 


BIE- 


BIT14 


SCE- 


BIT13 


RMR- 


BIT12 


NXM- 


BIT11 


NBA- 


BIT10 


HIADDR- 


BIT9IBIT8 


SSR- 


BIT7 


OFL- 


BIT6 


FATERR- 


BIT4JBIT5 


TERCLS- 


BIT3!BIT2!BIT1 



j TAPE MARK DETECTED 
-.RECORD LENGTH SHORT 
j LOGICAL END OF TAPE 
j RECORD LENGTH LONG 
i WRITE LOCK ERROR 
iNON EXECUTABLE FUNCTION 
{ILLEGAL COMMAND 
{ILLEGAL ADDRESS 
; TAPE IN MOTION 
j TRANSPORT ON LINE 
j INTERRUPT ENABLE 
{VOLUME CHECK BIT 
{PHASE ENCODED DRIVE 
j WRITE LOCKED 
{BEGINNING OF TAPE 
{END OF TAPE 



;BIT DEFINITIONS FQR EXTENDED STATUS REGISTER 1 
i(XSTl) 



XSOTMK- 


BIT15 


XSORLS* 


BIT14 


XSOLET- 


BIT13 


XSORLL- 


BIT12 


XSOWLE- 


BIT11 


XSONEF- 


BIT10 


XSOILC- 


BIT9 


XSOILA- 


BIT8 


XSOMOT- 


BIT7 


XSOONL- 


BIT6 


XSOIE- 


BIT5 


XSOVCK- 


BIT4 


XSOPED- 


BIT3 


XSOWLK- 


BIT2 


XSOBOT- 


BIT1 


XSOEOT- 


BITO 



Xl.DLT 



BIT 15 



jDATA LATE 



N2 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 
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SEQ 026 



96 


040000 


97 


020000 


98 


017375 


99 


000400 


100 


000002 


101 




102 




103 




104 




105 




106 


100000 


107 


040000 


108 


035400 


109 


002000 


110 


^00200 


111 


OvX>100 


112 


0<fc'C77 


113 


000*07 


114 




115 




116 




117 




118 




119 


177400 


120 


00020C 


121 


000100 


122 


000040 


123 


000020 


124 


000010 


125 


000006 


126 


000001 


127 




128 




129 




130 




131 




132 


100000 


133 


040000 


134 


020000 


135 


017400 


136 


0003*77 


137 




138 




139 




140 




141 




142 




143 




144 


000006 


145 


000006 


146 




14 7 




148 




149 




150 




I A 




152 





XI, SPARE- BIT14 {NOT USED 

XI. COR - BIT13 j CORRECTABLE DATA ERROR 

Xl.MBZ - BIT12tBITllfBIT.lO»BIT9*BIT7fBIT6*BIT5*BIT4*BIT3fBIT2+BIT0 {ALWAYS 

Xl.RBP - BIT8 ?READ BUS PARITY ERROR 

Xl.UNC - BIT1 j UNCORRECTABLE DATA OR HARD ERROR 

BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
(XST2) 



X2.0PM 

X2.RCE 

X2. SPARE 

X2.WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 



BIT15 {OPERATION IN PROGRESS (TAPE MOVING) 
BIT14 {RAM CHECKSUM ERROR 

BIT13fBIT12*BITll»BIT9*BIT8 {NOT USED BY TSV05 (ALWAYS*0) 
BITJ.O j WRITE CLOCK FAILURE (FIFO NOT i-.MPTIED BY TRANSPORT) 
BIT7 j IF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

BIT6 j IF WRITE CHAR CMD THEN » BUFFERING ENABLED 

000077 1 IF WRITE CHAR CMD THEN - MICROCODE REVISION LEVEL 
BIT2*BIT1*BIT0 j IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
CXST3) 



X3.MDE 

X3. SPARE 

X3,0PI 

X3.REV 

X3.TRF 

X3.DCK 

X3.MBZ 

X3,RIB 



177400 
BIT7 
BIT6 
BITS 
BIT4 
BIT3 
BIT2*BIT1 
BITO 



{MICRO-DIAGNOSTIC ERROR CODE 
j NOT USED BY TSV05 
{OPERATION INCOMPLETE 
{REVERSE 

{TRANSPORT RESPONSE FAILURE 
{DENSITY CHECK 
{NOT USED ALWAYS 
{REVERSE INTO BOT 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
CXST4) 

X4.HSP - BIT15 {HIGH SPEED 

X4.RCE - BIT14 jRETRY COUNT EXCEEDED 

X4.TSM - BIT13 {TRANSPORT SPECIAL MODE 

X4.MBZ • BIT12*BIT11*&IT10*BIT9*BIT6 ; NOT USED ALWAYS 

X'i.WRC ' 000377 {WRITE RETRY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREu' 3*2 
UNREC* 6 



DEVICE REGISTER OFFSETS 



{COMMAND REJECTED 
{UNRECOVERABLE ERROR 



B3 
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SEQ 027 



155 


000000 


154 


000000 


155 


000001 


156 


000001 


157 


000002 


158 


000003 


159 




160 




161 




162 




163 


000003 


164 




165 




166 




167 




168 


000017 


16^ 


000013 


170 


000012 


171 


000011 


172 


000010 


173 


000006 


174 


000005 


175 


000004 


176 


000001 


177 




178 




179 




180 




181 


100000 


182 


040000 


183 


020000 


184 


010000 


185 


007400 


186 


000200 


187 


000140 


188 


000037 


189 




190 




191 




192 


000000 


193 


00C400 


194 


001000 


195 


002000 


196 


002400 


197 




198 




199 




200 




201 


000167 


202 


000200 


20 3 


000201 


204 


000210 


205 


000215 


206 


000234 


207 




2oe 




ao9 





TSBA-- 

TSDB-- 

TS8AH-- 1 

TSDBH-- 1 

TSSR-- 2 

TSSRH-- 3 

j TSOB ADDRESS BIT DEFINITIONS 

A1716 - BIT1.BIT0 



jTSDB/TSBA REGISTER 

jTSDB/TSBA REGISTER HIGH BYTE 

jTSSR REGISTER 

jTSSR REGISTER HIG ; BYTE 



I ♦ 

\ 

I - 

P. 

P. 

P. 

P. 

P. 

P. 

P. 

P. 

P. 



COMMAND DEFINITIONS 



GETSTAT 

INIT 

CONTROL 

FORMAT 

POSITION 

WRTSUB 

WRITE 

WRTCHAR 

READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



(ADDRESS BITS 17} 16 ARE IN 1;0 



iGET STATUS 

I INITIALIZE 

I CONTROL COMMANDS 

, FORMAT 

(POSITION 

(SUBSYSTEM WRITE 

iWRITE 

iWRITE CHARACTERISTICS 

I READ 



I COMMAND PACKE1 HEADER WORD BIT DEFINITIONS 



P.ACK 

P.CVC 

P.OPP 

P.SWB 

P.MOOE 

P. IE 

P.FMT- 

P.CMO 



B 



BIT15 iBUFFER AVAIL FOR CONTROLLER 

BIT14 iCLEAR VOLUME CHECK 

BIT13 (REVERSE SEQUENCE OF DATA BITS 

BIT12 jSWAP BYTES IN MEMORY 
BITU»BIT10!BIT9!BITe jEXTENOEO COMMANO MODE FIELD 

BIT7 (INTERRUPT ENABLE 

T6JBIT5 (PACKET HEADER TYPE (ALWA>S-0) 

57 (MAJOR COMMAND FIELD 



J 



t CONTROL COMMANO MODE CODES 



J - 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



- 0*256. 

- 1*256. 

- 2*256, 

- 4*256. 

- 5*256. 



(RELEASE BUFFER 

jREWINO 

i NO -OP 

(REWIND IMMEDIATE INTERRUPT 

(SECURITY ERASE 



RAM DEFINITIONS 



I CONTROLLER 

i - 

RMCHBEG 

RMCHENO 

RMPKTBEG 

RMPKTEND 

RMMSGBEG 

RMMSGENO 

( ♦ 

jREUISIER DEFINITIONS IN THE MESSAGE BUFFER 



167 

200 
201 
210 
215 
234 



(CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
(CHARACTERISTICS 10 DATA ENO RAM ADDRESS 
(COMMAND PACKET BEGIN RAM ADDRESS 
(COMMANO PACKET END RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAM ADDRESS 
(MESSAGE BUFFER END RAM ADDRESS 



C3 



*vds RfbmbR 


A A&6 S PACI 


210 




211 




212 






213 


000006 


214 


000010 


215 


000012 


21b 


000014 


21 : 


000016 


218 




219 




220 










oo^» 




ccc 




225 




224 




225 


000002 


226 


000004 


227 


000006 


228 




229 


000010 


230 




231 




232 




233 




234 


000000 


235 


000001 


236 


000002 


23? 


000004 


238 




239 




240 




241 




242 


oooooo 


243 


0OOO01 


244 


000002 


245 


0OO003 


246 


000004 


247 


000005 


248 


000006 


249 


000007 


250 


000010 


251 


000011 


252 


000020 


253 


000021 


254 


000022 


255 


000023 


256 


000024 


257 




258 




259 




260 




261 


000200 


262 


000100 


263 


000040 


264 


000020 


265 


0000 10 


266 


000004 



SEQ 028 



\ - 



XSTO-- 


6 


XST1-- 


8. 


XST2«- 


10. 


XST3-- 


12. 


XST4-- 


14, 



lEXTENOED 
lEXTENOED 
lEXTENOED 

I EXTENDED 
lEXTENOED 



STATUS 
STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



(WORD 
CWORD 
(WORD 
(UORD 
(WORD 



4) 
5) 
6) 
7) 
«) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW ■ 2 
PKHI ■ 4 
PKBCNT • 6 

EXBCNT-10 



lLOW ORDER CHARACTERISTIC DATA POINTER 
jHIGH ORDER CHARACTERISTIC DATA POINTER 
iNUMBER OF BYTES IN DATA PACKET 

1NUM8ER OF BYTES IN EXTENDED DATA PACKET 



iDATA 
t - 



PACKET OFFSETS FOR WRITE SU6SYTEM COMMAND 



BSELO 
BSEL1 
SEL2 
SELDATA 



iBYTE 
iBYTE 
1 WORD 
I WORD 



IbSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 



PW.NOP 

PU. RDRAM 

PW.WTRAM 

PW.RFIFO 

PW.WFIFO 

PW.RDSTAT 

PW.WCTL 

PW.WFMT 

PU.WMISC 

PW.WNPR 

PW.D22 

PW.D11 

PW.D13 

PW.N01311 

PU.RDEXT 

IbSELI CO! 

WC.IFAO 
UC.I0TAD 

WCUTAD 
WC.I5RESV 
WC.IREW 
WC>IRWU 



• 


iNO-OP 


• 1 


jREAD RAH 


• 2 


iWRITE RAM 


- 3 


jREAD FIFO 


» 4 


llrfUTE FIFO 


• 5 


jREAD STATUS 


• 6 


iWRITE TAPE CONTROL 


• 7 


iWRITE TAPE FORMAT 


- 10 


iWRITE MISCELLANEOUS 


• 11 


jURITE NPR CONTROL 


- 20 


»00 MICROTEST 22 


■ 21 


»D0 MICROTEST \\ 


22 


iDO MICROTEST 13 


• 23 


iDISABLE MICROTEST 11 AND 13 


- 24 


iREAD EXT* TAPE STATUS (NOT SUPPORTED Bt 


WRITE TAPE 


CONTROL 


• BIT7 


lIFAD • FORMATTER ADDRESS 


• BIT6 


iITADO - TRANSPORT ADDRESS BIT 


» BIT5 


lITAOl - TRANSPORT ADDRESS BIT \ 


- BIT4 


\ IRESV5 - RESERVED 05 


■ BIT3 


lIREW REWINO 



ALL TRANSPORTS 



BIT2 



lIRWU - REWTNO AND UNLOAD 



1^5R^?l^ R rt ^Wi< E ? A 6IPiRlH5Ns 06 - FEB - 84 18i04 



D3 



5EQ 029 



26 7 


000002 


26a 


000001 


2b9 




270 




271 




272 




2 73 


000200 


274 


000100 


275 


000040 


276 


000020 


277 


000010 


278 


000004 


279 


000002 


280 


000001 


281 




282 




283 




284 




285 


000200 


286 


000020 


28 7 


000010 


288 


0OOOC6 


289 


000001 


290 




291 




292 




293 


000000 


294 


000002 


295 


000004 


296 


000006 


297 




298 




299 




300 


000200 


301 


000100 


302 


000040 


303 


000020 


304 




305 




306 




307 




308 


000200 


309 


oooioo 


310 


000040 


311 


000020 


312 


000010 


313 


000004 


314 


000003 


315 


100000 


316 


040000 


317 


020000 


318 


010000 


319 


004000 


320 


002000 


321 


001000 


322 


000400 


523 


000200 



iIfen 
»G0 



WC.IFEN • BJU 

WC.IGO - BITO 

Ibseli CODES FOR WRITE format 

WF.IHISP - BIT7 

WF.IWRT - BIT6 

WF.IREV - BITS 

WF.IWFM " BIT4 

WF.TEDIT - BIT5 

WF.IERASE - BIT2 

WF.I3RESV - BIT1 

WF.I4RESV - BITO 

jBSELl COOES FOR WRITE MISCELLANEOUS SUBCOMMAND 



- FORMATTER ENABLE 



llHlSP 


- HIGH SPEED 


llWRT 


- WRITE 


jIREV 


- REVERSE 


jIWFM 


- WRITE FILE MARK 


jIEDIT 


- EDIT 


iIEMASE 


- ERASE 


IIRESV3 


- RESERVED 03 


IIRESV4 


- RESERVED 04 



MS, EXT 

MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 

j MS. ATTN SUBCODES 



BIT7 
BIT4 
BIT3 
3IT2JBIT1 

BITO 



MSA.NGP • 0*2 
MSA. VOL - 1*2 
MSA.NRAM- 2*2 
HSA.FRAM* 3*2 



i INVERT SENSE OF EXTENDED FEATURES SWITCH 
iRESET FIFO AND INPUT PARITY ERRORR 
jRESET TAPE STATUS IN 2 FLIP-FLOPS 
lATTENTION TRIGGER FIELD 
»RESET TIMER A,B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 
^SIMULATE ON-LINE/OFF-LINE TRANSISTION 
»FORCE NON-FATAL RAM ERROR (FORCES ERRCODt 
l FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



I WRITE 

NP. IR 
NP.OUT 
NP.LOOP 
NP.WRP 

I READ 



SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



BIT7 
BIT6 
BIT5 
BIT4 



I INTERRUPT REQUEST (0 1 TRANSITION) 

iTAPE DATA DIRECTION OUT (0- IN) 

lENABLE TRANSPORT L00P3ACK 

tWRITE CORRECT PARITY (SEf-0 TO WRITE WRONG) 



STATUS MESSAGE BUFFER BIT DEFINITIONS 



S2.DIM 

S2.ILW 

S2.0UTRDY 

S2.INRDY 

S2.ATIMR 

S2.BTIMR 

S2.LN0EF 

Sl.PARIN 

S1.I2RESV 

S1.IIRESV 

Sl.IEOT 

Sl.IIDENT 

Sl.ICER 

Sl.IFMK 

Sl.IHER 
SO.ISPEED 



BI T 7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BITWBITO 

BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BITIO 

BIT9 

BIT8 

BIT7 



WORD 09 BYTE 2 



(UNDEFINED) 
WORD 08 BYTE 



DATA IN MISS 
ILW H 
OUT ROY H 
IN RD V H 
TIMER A FLAG H 
TIMER B FLAG H 



PARIN H 
IRESV2 

IRESV1 
IEOT L 

IIDFNT H 
ICER H 
IFMK H 
IHER H 
WORD OQ BYTE ISPEED H 
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£3 



SEQ 030 



324 
325 
326 
32? 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
336 
339 
340 
341 
342 
343 
344 
345 
346 
34 7 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



SO.IRDY • BIT6 




5O.I0NL ■ BIT5 




SO.ILDP • BIT4 




SO.IDBY - BIT3 




SO.IRWD ■ BIT2 




S0.IFB1 - BIT1 




SO.IFPT - Biro 




.SBTTL SPECIAL 


MACROS AND OPDEFS. 


{SAVE GENERAL REGS I TO 


5 


.MACRO SAVREG 




JSR R5.REGSAV 


.ENOM 





IRDY L 

IONL L 

ILDP L 

IOBY L 

IRWD L 

IFBY L 

IFPT L 



MACRO TO FORCE AN ERROR 



TAG.NOTSSR 



{READ TSSR 

j IS FORCER SET? CLEAVE C BIT ALONE) 
jBR IF YES 



MACRO FORCERROR 

NLIST 

IIF NOF LISTALL, .NLIST 

LIST 

IF B NOTSSR 

MOV T5SR(R5),R1 
.ENDC 

MOV FORCER. FORCER 

BNE TAG 
NLIS1 

IIF NQF LISTALL, .LIST 
LIST 
ENOM 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
UILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS ANO EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

MACRO FORCEXIT TAG 

NLIST 

IIF NDF LISTALL, .NLIST 

LIST 

H^V FORCER, FORCER 
BhI TAG 
.NLIST 

.IIF NDF LISTALL, .LIST 
.LIST 
.ENOM 

I ♦ 

i MACRO TO INCREMENT ERROR COUNTS 

I 

.MACRO NEXT.ERRNO 

.NLIST 

Ml. IIF NDF LISTALL, .NLXST 



j IS FORCER NEGATIVE? 
;BR IF YES 



F3 



TSV3 - GLOBAL AREAS MACRO MU13 
SPECIAL MACROS AND OPDEFS, 

381 

382 

383 

384 

385 

386 

38? 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 000000 

398 

399 

400 

401 

402 

403 

404 

405 002170 000000 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

J 16 

417 

418 

419 002172 OOOOOO 

420 002174 OOOOOO 

421 002176 OOOOOO 

422 002200 OOOOOO 

423 002202 000224 

424 CO2204 000200 

425 002206 OOOOOO 

426 002210 OOOOOO 

427 002212 OOOOOO 

428 002214 OOOOOO 

429 002216 OOOOOO 
4 30 002220 OOOOOO 
431 002222 OOOOOO 
4 32 002224 OOOOOO 
4 33 002226 OOOOOO 
4 34 002230 OOOOOO 
4 35 002232 OOOOOO 

436 002234 

437 002274 OOOOOO 



06-FEB-84 18:04 



SEQ 031 



ERRNO-ERRNO+1 
;;; .IIF NDF LISTALL, .LIST 
.LIST 

.ENDM 

{MACRO TO PERFORM XOR 



. MACRO 


XOR A.B 


MOV 


A.-CSP) 


BIC 


B»CSP) 


BIC 


A.B 


BIS 


CSP)*,B 


.ENDM 




EN-0 




.SBTTL 


FORCER - F 



; INITIALIZE ERROR NUM8ER 
- FORCE ERROR FLAG 



THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH, 



FORCER;; 



.SBTTL 



i FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
; • BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 

1 - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
GLOBAL DATA SECTION 



{THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
I IN MORE THAN ONE TEST. 



{THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
jSINCLE UNIT OEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSW: 


.WORD 


i 


UNITN: ; 


.WORD 


i 


QVP; : 


.WORD 


i 


CSRADDR 


: .WORD 


i 


IVEC:: 


.WORD 


224 , 


IPRI:: 


.WORD 


PR 104 i 


TSTCNT: 


.WORD 


t 


LOOPCNT 


: . WORD 


i 


DEVCNT: 


.WORD 


i 


FATFLG: 


.WORD 


i 


INTRECV 


: .WORD 


i 


EXTFEA: 


.WORD 


i 


BENBSW; 


.WORD 


i 


EXPO: : 


.WORD 


t 


RECV:: 


.WORD 


i 


ERRMI:; 


.WORD 


i 


ERRLO: : 


.WORD 


; 


RAMDATA 


; .BLKW 


lb. i 


RAMSIZ: 


.WORD 


( 



I PRINT SWITCH 

{UNIT UNDER TEST. 

{QUICK VERIFY FLAG. 

t ADDRESS OF CSR FOR CURRENT DEVICE 

» INTERRUPT VECTOR 

I INTERRUPT PRIORITY. 

{NUMBER OF TESTS RUN IN THIS PASS 

{REMAINING ITERATION COUNT FOR TEST 

j NUMBER OF DEVICE UNDER TEST 

i SET IF FATAL ERROR IS DETECTED IN TEST 

l SET IF TAPE INTERRUPT WAS RECEIVED 

lEXTENOED FEATURES SOFTWARE SW O-OFF-l-ON 

{BUFFER ENABLE SWITCH SW 0-OFF,l*ON 

{EXPECTED RAM DATA FOR PRAMPKT ROUTINE 

{RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

i HIGH ADDRESS MEMORY ERROR 

;LOW ADDRESS MEMORY ERROR 

jDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

{RAM DATA SIZE FOR PRAMPKT ROUTINE 



G3 



TSV3 - GLOBAL AREAS 
GLOBAL DATA SECTION 



438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
4 70 
471 
472 
473 
474 
475 
4 76 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 



002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002460 
002624 



002744 
002744 
002746 
002750 
002752 
002754 
002756 
002760 
002762 
002764 
002766 
002770 
002772 
002 774 
002776 
003000 
003002 
003004 
003006 
003010 
003012 
003014 
00301f> 
003020 
003022 
003024 
003026 
003030 
003032 
003034 
003036 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
177777 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
0020O0 
004 OOC 
010000 
020000 
040000 
100000 
177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 



MACRO M1113 06-FEB-84 18:04 



RCVHIAQD; : 

RCVLOAOD:; 

COUNT : : 

DATA; t 

TSTFLAG: s 

TSTPTR 

PRMNO: 

EXPMSG 

RECMSG 

TMPBFR 



.SBTTL 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.BLK3 


100. 


.BLKB 


100. 


.BLKB 


80. 


TSYBLK 


- TE 



SEQ 032 



{RECEIVED BUFFER HIGH ADDRESS 

» RECEIVED BUFFER lOW ADDRESS 

I TEST COUNT PATTERN 

j TEST DATA 

I TEST FLAG WORD 

{TSTBLK POINTER 

jPRINT ROUTINE TEMP 

{EXPECTED MESSAGE BUFFER DATA 

{RECEIVED MESSAGE BUFFER DATA 

i TEMPORARY STORAGE FOR PRINT 



- TEST DATA TABLE 



i ♦ 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



J - 



TSTBLK; 



.WORD 





.WORD 


177777 


.WORD 


BITO 


.WORD 


BIT1 


.WOPD 


BIT2 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


BIT6 


.WORD 


BIT7 


.WORO 


BIT8 


.WOHD 


BIT9 


.WORD 


BIT 10 


.WOPD 


BIT11 


.WORD 


BIT12 


.WORD 


BIT13 


.WORD 


BIT14 


.WOKD 


BIT15 


.WORD 


tCBITO 


.WORD 


tCBITl 


.WORD 


tCBIT2 


.WORD 


'CBIT3 


.WORD 


tCBIT4 


.WORD 


tCBIT5 


.WORD 


tCBIT6 


.WORD 


'CBIT7 


.WORD 


tCBITS 


.WORD 


tCBIT9 


.WORD 


tCBITIO 


.WORD 


tCBITll 



{ALL ZEROS 

\ALL ONES 

{DATA FOR WALKING ONES 



{DATA FOR WALKING ZEROS 



H3 



TSV3 - GLOBAL AREAS MACRO M1113 
TSTBLK - TEST DATA TABLE 



495 

496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
516 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
54 5 
544 
545 
546 
54? 
548 
549 
550 
551 



003040 
003042 
003044 
003046 
003050 
003052 



003054 
003064 



003104 

003106 

003110 
00311? 
003114 
003116 
003120 
003122 
003124 



003126 
003130 
003132 
003134 
003136 
003140 
003142 
003144 
003146 
003150 
003152 
003154 
003156 
003156 
003160 
003162 
003164 
003166 
003170 



167777 
157777 
137777 
077777 
125252 
052525 
003054 



000000 100000 000000 
000000 000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

002000 

oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 
oooooo 
oooooo 

177777 



06-FEB-84 18:04 




.WORD 


tCBIT12 


.WORD 


tCBIT13 


.WORD 


tCBIT14 


.WORD 


tCBIT15 


.WORD 


125252 


.WORD 


052525 



SEQ 033 



TBLEND' 



jALTERNATING ONES, ZEROS 

j ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 



{STORAGE FOR DEVICE REGISTERS 

DUiMY: 0,100000,0,0 {DUMMY DEVICE REGISTERS... 
0,0,0,0,0,0,0,0 

j... FOR MULTI-UNIT CHECKOUT, 



DUFLG:: 


.WORD 





NODEV:: 


.WORD 





TEMPI:: 


.WORD 





TEMP2:: 


.WORD 





XXCOMM: ; 


.WORD 





FREE;: 


.WORD 





FRESIZ: : 


.WORD 





FREEHI: .WORD 







KTFLG:: 


.WORD 





K TENABLE:: 


.WORD 





NXMFLG: : 


.WORD 





NXMLO: : 


.WORD 





NXMHI: : 


.WORD 





T23A:; 


.WORD 





T23B: : 


.WORD 





T3BFLG: : 


.WORD 





PST32W;: 


.WORD 


2000 


SIFLAG: : 


.WORD 





BADDAT: ; 


.WORD 





GOOAT:: 


.WORD 





LOOPFL: : 


.WORD 





CTAB:: 






CTABMj : 


.WORD 







.WORD 







.WORD 







.WORD 







.WORD 


- 1 


CTABE: j 






jERROR STATISTICS TABLE 


(1 w 


i 

: 


■ 


UNIT 


I 100000 


a 


UNIT 


j 10XXXX 


a 


UNIT 


; 160000 


a 


UNIT 


5 160001 


■ 


UNIT 


j 14XXXX 


■ 


UNIT 



^"DROPPED UNIT'* FLAG. 
{INHIBITS CODE IN "CLEAN-UP". 
{FLAG TO SAY NO DEVICE. 

{SOME TEMP LOCATIONS. 

jXXDP* COMM BLOCK POINTER. 
{1ST FREE MEMORY ADDRESS... 
{ ., .AND SIZE (IN WORDS). 
{LAST WORD IN FREE SPACE 

(KT11, MEM AVAIL FLAG - 

j- .WORD - <24K OR NO KT - 

j - NZ - >24K ANO KT. 

{SET BY TEST ROUTINES TO FLAG >28K UNOER 

{SET IF WE CAN TEST CLEARED OTHERWISE 

{NXM LO ADDRESS BITS 

{NXM HI ADDRESS BITS FOR DAL'S 16-21 

{11/23A FLAG 

{U/23B FLAG 

{TEST 3B FLAG *0 

{32W BLOCK ADDRESS FOR 32K START 

{ACTUAL DATA 
{EXPECTED DATA 

{CONFIGURATION TABLES. 
{CONFIG WORK. 



TEST 



{END OF MEM TABLE. 

WORD PER UNIT), 64 UNITS MAX: 

NOT TESTED 

ONLINE, NO ERRORS 

ONLINE, ENCOUNTERED XXXX ERRORS 

DROPPED, NON-FXISTENT DEVICE REGISTER 

DROPPED, NOT IDLE AT START 

DROPPED, ENCOUNTERED XXXX ERRORS 



003170 



ERTABL 



,BU<W 64 



I* 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 SEQ 034 

GLOBAL ENVIRONMENT STORAGt 

552 003370 000000 ERTABEj .WORD 

5S3 

554 003372 000000 SKIPT: .WORD jl-SKIP SUBTEST 0-NO SKIP OF SUBTEST 



J3 



TSV3 - GLOBAL AREAS 
GLOBAL TEXT MESSAGES 



556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 003374 
003374 
003374 



MACRO M1U3 06-FEB-84 18;04 



SEQ 035 



568 

589 

590 

591 

592 003402 
003402 
003402 



594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
61? 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 



0034 76 
003516 
003536 
003541 
003545 
003551 
003555 
003561 
003565 
003572 
003577 
003603 
003607 
003614 
003621 
003626 
003633 
003640 

003646 
003 701 
003734 
003773 
004014 
004054 
004113 
004117 
004146 
004211 



124 



123 



052 



052 



003536 
00357 7 
123 
102 
123 
120 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 



003541 
003603 
103 
111 
103 
115 
130 
102 
111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 
116 
040 
040 
116 



126 



052 



003545 
00360 7 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 
045 



.SBTTL GLOBAL TEXT MESSAGES 



i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
5 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
I MORE THAN ONE TEST. 
I -- 



{NAMES OF DLVICES SUPPORTED 



DEVTYP <TSV05> 
L$DVTYP: : 

.ASCIZ /TSV05/ 
.EVEN 



TEST DESCRIPTION 

DE5CRIPT <**♦* TSV05 LOGIC DIAGNOSTIC 



CHECK TRANSPORT IF ERROR *♦♦*> 



L$DESC:: 



.ASCIZ /**** TSV05 LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR ***♦/ 
.EVEN 

!BIT TO ASCII CONVERSION FOR TSSR REGISTER 

i - 



TSSRBIT:: 



1$ 
2$ 
3$ 
4$ 

5$ 

6i 

7$ 

8$ 

9$ 

10$ 

11$ 

12$ 

13$ 

14$ 

15$ 

16$ 



SFIERR; 

SFHERR: 

NXR : 

NXRX; 

TSSX: 

FUSI: 
USI: 

NSI; 
FNOINTR 



.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI/ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 



WORD 
WORD 

sc 

BIE' 

SCE' 

RMR* 

NXM' 

NBA' 

BIT9' 

BIT8 

SSR' 

OFL' 

BI15 

BIT4 

BITS' 

BIT2 

BIT1 

BITO 

TSSR 
TSSR 



1$. 2$. 3$, 4$, 5$. 6$. 7$. 8$ 

9$ # 10f , 11$ ,12$ ,13$ ,14 $,15$ ,16$ 



F.PROR 
ERROR 



AFTER 
AFTER 



SOFT INIT 
BUS RESET 



/ NON-EXISTANT DEVICE REGISTER/ 

/*A ADDRESS: *06/ 

/*A TSBA,TSSR EXP'D; *06*A >06*N/ 

/*A TSBA.TSSR REC'Di #06*A,*06/ 

/#N*A/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRU°T EXPECTED, NOT RECEIVED/ 

.ASCII /*N*A/ 



I<3 



TSV3 - GLOBAL AREAS 
GLOBAL TEXT MESSAGES 



MACRO M1113 06-FEB-84 18:04 



SEQ 036 



628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
64 7 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 

660 



661 
662 



663 
664 
665 
666 
66 7 
668 
669 
670 
671 
672 



004215 
004252 
004274 
004331 
004403 
004453 

004523 
004 524 
004527 
004563 
004637 
004 741 
005007 
005052 
005107 
005202 
005274 
C05366 
005454 
005550 
005641 



005732 
005732 
005732 
005732 
005736 
005742 
005746 
005750 
005/52 
005756 
005762 
005762 
005762 



005764 
005 766 
0057 70 
005772 
005776 
005776 
00601V 
QQ6UQ6 



040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 
045 
045 



013746 
012746 
012746 
010600 
104415 
062 706 
004737 



104423 



005727 
COOOOO 
001402 
004 7 77 

012746 
012 746 
010600 



040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 
116 
116 



003106 
003773 
000002 



000006 
005764 



177770 

004524 
000001 



116 
111 
04 C 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 
045 
045 



NOINTR 

IFAULT 

INTX: 

NOINIT 

NSINIT 

BRIN'IT 

NUL: 

NULCR: 

EXPGOT 

EXPGT2 

0UAD12 

PKTRAM 

SCME: 

WRTMSG 

WRTERR 

RDERR: 

SCHERR 

RETERR 

NOMEh 

M8186 

M0189 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

, ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI7 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/*A CPU PC; *06*A TSBAj *06/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/*N/ 

/*A EXP'Dj tf06*A, REC'D: *06/ 

/#N*A EXP'D: *06#A f *06*N*A REC'D: *0*A $ K06/ 

/*A REGCW) WRITTEN *Q: *06*A REGCR) READ? EXP'O: *J06*A, REC'D: KOb/ 

.ASCIZ 'RAM Contents Do Not Match Packet Sent' 

/ '"ONfIG DOESN'T MATCH MFG. MASTER/ 

•UP\fr. CHARACTERISTICS Failed' 

•TSIA In-orrect After WRITE Command, More Bits Set Than SSR' 

' TSSR Incorrect After READ Command, More Bits Set Than SSR' 

'F^TAL ERROR IN SUBTEST - CHECK TAPE, CABLES, TRANSPORT etc' 

•ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED* 

'#N#A *♦*♦* NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. ******N< 

• rtNtfA ***************** 11/23A SYSTEM ******************N' 

'«N*A ***************** 11/238 SYSTEM *****+***********#N' 

GLOBAL ERROR REPORT SECTION 



; ♦ ♦ 



TK« GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX 

CALLS THAT ARE USED IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



BGNMSG NXRERR 



NXRERR : 


. 






PRINTX 


4NXRX,N0DEV 




MOV 


ncdev. -csp) 




MOV 


GNXRX, (SP) 




MOV 


02, -(SP) 




MOV 


SP.RO 




TRAP 


CiPNTX 




ADD 


06. SP 




JSR 


PC, EXTEND 




F.NDMSG 




L 10002: 







tNON-EXISTANT DEVICE REGISTER. 
iNODEV * NEXM ADDRESS. 



l PRINT EXTENSION IF REQUIRED, 



TRAP 



CSMSG 



{ THIS ROUTINE APFENDS A UNIQUE EXTENSION (IF REQUIRED) 
t TO ANY OF THE ABOVE ERROR SIGNATURES, 



i - NO EXTENSION. 

j APPEND EXTENSION TfciXT, 
i PRINT A BLANK LINE 



EXTENDI 


TST 


(PC;* 


EXTA: 









BEQ 


l* 




JSR 


PC.9EXTA 


1$: 


PRINTX 


aNULCR 




MOV 


♦NULCR.-CSP) 




MOV 


♦ I. -CSP) 




MOV 


SP.RO 



L3 



T3V3 - GLOBAL AREAS MACRO M1U3 06-FE8-84 18:04 SEQ 037 

GLOBAL ERROR REPORT SECTION 

006010 104415 TRAP C*PNTX 

006012 062706 000004 ADO 04,SP 

673 006016 000207 RTS PC 



M * 



o 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18;04 
PRITSSR - PRINT T5SR CONTENTS 



SHQ 038 



675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 



697 
698 
699 
700 



701 
702 
703 
704 
705 
706 
707 
708 
709 

"rlO 

711 
712 
713 
714 
715 
716 
717 
718 



006020 
0C6020 
006024 
006026 
006026 
006030 
006034 
006040 
006042 
006044 
006050 
006052 
006056 
006060 
006060 
006064 
006070 
006072 
006074 
006100 
006102 
006106 
006110 
006114 
006120 
006122 
006124 
006126 
006130 
006132 
006134 
006136 
006140 
006146 
006150 
006152 
006154 
006154 
006160 



010104 

010446 
012746 
012746 
010600 
104414 
062706 
010400 
004737 
103410 

012746 
012746 
010600 
104415 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000763 
105042 

012746 
012746 



,SBTTL PRITSSR - PRINT TSSR CONTENTS 



ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
{THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 



INPUTS? 



Rl 



CONTENTS OF TSSR 



} 



SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



006473 
000002 



000006 
016124 



006713 
000001 



000004 
001476 

002624 
003476 



000054 177777 



002624 
006664 



PRITSSR 


SAVREG 






MOV 


R1.R4 




PRINTB 


0TSSRF0R.R4 




MOV 


R4.-CSP) 




MOV 


*TSSRFOR,-(SP) 




MOV 


*>2.-(SP) 




MOV 


SP,RO 




TRAP 


C$PNTB 




ADD 


$6,SP 




MOV 


R4.R0 




JSR 


PC, CHKAMB 




BCS 


5$ 




PRINTX 


4AM8TSSR 




MOV 


*AM8TSSR,-(SP) 




MOV 


*1.-(SP) 




MOV 


SP,RO 




TRAP 


C$PNTX 




ADD 


#4,SP 


5$: 


MOV 


R4.R3 




BIC 


*HIADDR!FATERP! 




BEQ 


20$ 




MOV 


0TMPBFR.R2 




MOV 


$TSSRBIT,R1 


10$: 


TST 


R3 




BEQ 


15$ 




CLC 






ROL 


RS 




BCC 


13$ 




MOV 


(Rl).RO 


11$: 


MOVB 


(R0)*,CR2)» 




BNE 


11$ 




MOVB 


*' ..-1CR2) 


13$: 


TST 


(Rl)*- 




r •■■» 


10$ 


15$: 


fib 


-CR2) 




i aNTX 


, ~9SDEF.#TMPBFR 




t )V 


*»■ lorri, -'SP) 




( w 


. V;OEF, -f -o) 



I SAVE GENERAL REGISTERS 
j SAVE THE TSSR CONTENTS 
jPRINT THE CONTENTS OF TSSR 



{GET TSSR BACK FOR CHKAMB 
;ARE CONTENTS AMBIGUOUS ? 
jBRANCH IF NOT 
j SHOW CONTENTS ARE AMBIGUOUS 



TSSR 

{CLEAR ALL MULTIPLE BIT FIELDS 



{CONTENTS OF 
TERCLS.R3 
{NO BITS ARE SET 
{TEMPORARY ASCII BUFFER 
{ASCII EQUIVALENT OF BITS 
{REMAINING BITS TO CONVERT 
{BRANCH WHEN ALL ARE DONE 
{CLEAR CARRY FOR SHIFT 
{SHIFT NEXT BIT TO CARRY 
{BRANCH IF BIT NOT SET 
{POINTER TO BIT DEFINITION 
{MOVE ASCIZ TO BUFFER 
{MOVE ALL BITS 

{INSERT A COMMA TO TERMINATE 
{POINT TO NEXT DESCRIPTION 
{GET THE REMAINING BITS 
{TERMINATE THE LINE 
{PRINT THE BIT DEFINITIONS 



N3 



TSV3 - GLOBAL AREAS MACRO M1113 
PRITSSR - PRINT TSSR CONTENTS 



006164 
006170 
006172 
006174 
719 

720 006200 

721 006202 

722 006206 

723 006212 
006212 
006214 
006220 
006224 
006226 
006230 

724 006234 

725 00627 6 

726 006242 

727 006244 

728 006246 

729 006250 

730 006252 

731 006256 
006256 
006260 
006264 
006270 
006272 
006274 

732 006300 

733 006304 

734 006306 
006306 
006310 
006314 
006320 
006322 
006324 

735 006330 

736 006334 
006334 
006336 
006342 
006344 
006346 

737 006352 
738 

753 006354 

754 006413 

756 0064 73 

757 006513 

758 006554 

759 006615 

760 006664 

761 006713 
762 

763 006750 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
0*2703 
001416 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
042704 
001411 

010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 

045 
^45 
045 
045 
045 
045 
045 
045 



000002 



000006 



177761 
006754 



006554 
000002 



000006 
177717 

007314 



0066 J. r « 
000( .^ 



000006 
176377 



016513 
000002 



000006 
002172 



000001 
000004 



116 
116 

116 
116 
11* 
116 
116 
116 



06-FEB-84 18:04 



MOV 
MOV 
TRAP 
ADO 



SEQ 039 



20$ i 



25$: 



30$: 



045 
045 
045 
045 
045 
045 
045 
045 



EPRTi: 

EPRT2: 

TSSRFOR: 

TEXASC 

TCOASC 

TFCASC 

TSSDEF 

AMBTSSR 



MOV 

BIC 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

BIC 

BEQ 

ASR 

ASR 

ASR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

BIC 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

, ASCIZ 
.ASCIZ 



#2.-(SP) 
SP.RO 
C$PNTX 
06. SP 

R4.R3 

OtCTERCLS,R3 

TC0C0D(R3),R3 

0TC0ASCR3 

R3.-CSP) 

OTCOASC.-CSP) 

02, -(SP) 

SP.RO 

C$PNTX 

06, SP 

R4 R3 

0tCFATERR,R3 

25$ 

R3 

R3 

R3 

TSFC0D(R3),R3 

OTFCA3C.R3 

R3.-CSP) 

OTFCASC, -CSP) 

02. -(SP) 

sr.Ro 

C$PNTX 

06. SP 

OtCHIADDR,R4 

30$ 

0TEXASC.R4 

R4.-CSP) 

;texasc-csp) 

02,-CSP) 

SP,RO 

C$PNTX 

06, SP 

EPRTSW.R3 

R3 

R3.-CSP) 

•1,-CSP) 

SP.RO 

C$PNTX 

04, SP 

PC 



{GET THE TSSR CONTENTS 

jCLEAR ALL BUT TERMINATION 

iGET THE TERMINATION CODE MEANING 

! PRINT THE TERMINATION CODE 



;TSSR CONTENTS AGAIN 

i CLEAR ALL BUT FATAL TERMINATION 

;DON'T PRINT IF ZERO 



;ALINE TERMINATION CODE FOR IND^X 
{GET THE FATAL TERMINATION CODE 
{PRINT THE FATAL TERMINATION CODE 



{CLEAR ALL BUT EXTENDED ADDRESS 

jDON'T PRINT IF ZERO 

{PRINT THE EXTENDED ADDRESS BITS 



{PRINT MEAASGE BUFFER ADDRESS 
{PRINT PROPER MESSAGE 



006774 007017 007045 TCQCQDi 



.EVEN 
.WORD 



'*N*A 

'*N*A 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



*.****CHECK 

*****CHECK 



{RETURN TO CALLER 

TRANSPORT*****' 

PARITY SWITCH IN THANSPOR T***** 



*N*A TSSR - *06' 

#N*A Extended Address Bits - *06' 

dNi<A Termination Class Code ■ *T' 

#N*A Fatal Termination Class Code 

*N*A TSSR Bits Set: *T' 

*N*A TSSR Contents Are AmoiQuous' 



*T« 



l$ t 2$ l 3$,4$ t 5(,6$i7$ 1 8$ 



B4 



TSV3 - GLOBAL AREAS MACRO M1113 
PRITSSR - PRINT TSSR CONTENTS 



06-FEB-84 18;04 



SEQ 040 



764 006 774 

765 007017 

766 007045 

767 007067 
766 007107 
769 007171 
7 70 007240 
771 007264 
772 

773 



774 
775 
776 
77 7 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
600 
801 
802 
803 
804 
805 



806 
80 7 
808 
809 

810 
811 
812 
813 



007314 
007324 
007360 
007371 
007435 



007446 
007446 
007452 
007454 
007460 
007462 
007464 
007466 
007470 
007472 
007474 
007474 
007476 
007500 
007504 
007510 
007512 
007514 
007520 
00 7522 
007524 
007526 
007532 
007534 
007536 
007540 



116 
124 
124 
106 
122 
122 
125 
106 



007324 
111 
122 
102 
122 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 



157 
145 
141 
165 
145 
145 
156 
141 



007360 
156 
145 
165 
145 



162 
162 
160 
156 
143 
143 
162 
164 



007371 
164 
163 
163 
163 



003126 



007632 
000003 



000010 



017376 



1$ 
2$ 
3$ 
4$ 
51 
61 
7$ 
8$: 



TSFCOD: 
II: 

2$! 

31: 

4$: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.EVEN 
.SBTTL 



'Normal Terminat ion' 
' T<»rm I nation Condition' 
' Tap* Statu* Altrt' 
'Function Reject' 
'Recoverable Error - Tapa 
'Recoverable Error - Tapa 
'Unrecoverable Error' 
•Fatal Controllar Error' 



Position Ona Record Down* 
Woo Not Moved' 



11.21,3d, 41 

'Internal Diagnostic Failure' 
' Reserved' 
Bus Interface or Sanity Check Error' 
•Reserved' 



PRIPKT 



PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMANO PACKET 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT} 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMANO PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



PRIPKT 



NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



iSAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

j ABOVE 26K l*JOER TEST? 

iBR IF YES 

I SET HIGH ORDER ADDRESS TO 

iCOPt HIGH ORDER A0DRE5S 

iGET LOWER ADDRESS 

iSHlFT BIT 15 INTO C BIT 

lANO INTO HIGH ORDER. 

{PRINT PACKET ADDRESS 





SAVREG 






MOV 


R0.R5 




TST 


KTENABLE 




BNE 


10$ 




CLR 


R3 


101: 


MOV 


R3«Rt 




MOV 


R4.R0 




ROL 


RO 




ROL 


Rl 




PRINTB 


#PKTADD,R1,R4 




MOV 


R4.-CSP) 




MOV 


Rl. (SP) 




MOV 


♦PKTADD, -(SP) 




MOV 


♦ 3, -(SP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADO 


010, SP 


15$: 


MOV 


R3,R0 




BEQ 


r»oi 




MOV 


R4.RI 




JSR 


PC.SETMAP 




MOV 


R0.R-1 


20$t 


CLR 


Rl 


25$ j 


MOV 


(R4)t ,R2 




PRINTB 


#PKrFRM,Rl ( R2 



iGET HIGH ORDER ADDRESS 
tBR IF NOT ABOVE 28K , 
iGET LOW ORDER ADDRESS 
iSETl*> PAR6 MAPPING FOR 18 
j GET RETURNED PAR6 ADDRESS 
i SAVE WORD NUMBER 
iGET PACKET CONTENTS 
iPRINT THE DATA 



BIT ADDRESS 
BIAS 



C4 



TSV5 GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 
PRIPKT PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



SEQ 041 



814 
815 
816 
817 
818 
819 
820 
821 
922 
823 
824 
825 
826 
82? 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 



007540 
007542 
007544 
007550 
007554 
007556 
007560 
007564 
007566 
007570 
007572 

007574 
007632 



649 

850 
851 
852 
853 
854 
655 



007670 
007670 
007674 
007676 
007706 
007712 
007 714 
007716 
007720 
007720 
007722 
007724 
007 726 
007732 
007736 
007740 
007742 
007746 
007 750 

007752 



010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



007574 
000003 



000010 



116 
116 



045 
045 



PKTFRM: 
PKTADDj 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BLT 

RTS 

.ASCIZ 
.ASCIZ 
.EVEN 

.SBTTL 



R2.-CSP) 

Rl.-(SP) 

OPKTFRM, -(SP) 

03,-CSP) 

SP.RO 

CIPNTB 

#10, SP 

Rl 

R1.R5 

25$ 

PC 



iNEXT WORD NUMBER 
lOONE ALL PACKET WORDS? 
j LOOP TILL ALL DONE 
I RE TURN 



*#N*A Packet Word **D1*A ■ *06' 
'*N*A Packet Addraaa - #01*05' 

PRIBXOR - PRINT EXPO. RECV AND XOR BYTE 



PRINT EXPECTED DATA. RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTS: 



Rl 
R2 



OUTPUT} 



177400 



007752 
000004 



000012 



RO 



PRIBXOR:: 

SAVREG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



R2»R3 
R1.R5 

O'C<377>,R0 

R0.R1 

R0,R2 

R0,R3 

♦X0R8F0R.R2.Rl 

R3, (SP) 

Rl.-(SP) 

R2, (SP) 

OXORBFOR, (SP) 

04 1 (SP) 

SP.RO 

CtPNTB 

012, SP 

R3.R0 

PC 



iSAVE THE 
tEXPECTED 
,FORM THE 
iBYTE 
iSAVE 
j SAVE 
I SAVE 



REGISTERS 

DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOW BYTE EXPO 
LOW B^TE XOR 



OR 



,R3 jPRINT THE MESSAGE 



iRO HAS 
I RE TURN 



XOR ON RETURN 
TO CALLER 



116 



045 XORBFQRi 



.EVEN 
.SBTTL 



.ASCI/ »#N*A EXPO: #03*A RECV: *03*A XQRi *Q3* 
PRIXOR - PRINT EXPD, RLCV AND XOR 



D4 



TSV5 • GLOBAl ARFAK ^ MACRO 
PRIXOR PRINT EXPO, recv and 


856 








857 








858 








859 








860 








861 








86? 








865 








064 








865 








866 








86 7 








868 








869 








870 








371 








872 


010020 






873 


01GO?0 






874 


0100k.'4 


010203 




o>5 


CI 00^6 






87k 


010036 








010036 


010346 






0100-10 


010146 






010O42 


010246 






010O44 


012746 


010070 




910050 


012746 


000004 




010054 


010600 






010056 


104414 






0.10060 


062706 


000012 


11 > V 


01OO64 


010300 




t'n\ 


010066 


000207 




«7<J 








'**iO 


oioovo 


045 


116 


;..ai 








ttrt? 








ri83 








38 a 








ttriS 








firt6 








■■38 7 








886 








889 








890 








891 








892 








695 








894 








895 








696 


010136 






897 


010136 






898 


010142 


000207 




899 








900 








901 








90? 








oo ;■ 








904 









,3 06-FEB-84 1.8:04 



J * 



5EQ 042 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTS: 



Rl RECCIVED DATA 
R2 EXPECTED DATA 



OUTPUT j 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR:: 

SAVREG jSAVE THE REGISTERS 

MOV R2,R3 (EXPECTEO DATA 

XOR R1.R3 jFORM THE EXCLUSIVE OR 

PRINTS *X0RF0R,R2,R1,R3 jPRINT THE MESSAGE 

MOV R3.-CSP) 

MOV Rl.-CSP) 

MOV R2.-CSP) 

MOV *XORFOR>-(SP) 

MOV *4,-(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD 012, SP 

MOV R3.R0 iRO HAS XOR ON RETURN 

RTS PC iRETURN TO CALLER 

045 XORFQR: .ASCIZ • *N*A EXPD: *06*A RECV; *06#A XOR: *06' 
.EVEN 

.SBTTL FRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO 
Rl 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



SAVREG 
RTS PC 

.SBTTL PRIRAM 



j SAVE THE REGISTERS 
iRETURN TO CALLER 



PRINT RAM ADDRESS 



jPRINT CONTROLLER RAM ADDRESS. 

;TH1S ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES 



E4 



TSV? • GLOBAL AREAS 


MACRO r 


PRIRPM 


- PRINT 


RAM ADDRESS 


905 








906 








90 7 








908 








909 








910 








911 


010144 






Oil 


C10144 






913 


01C150 








010150 


010*46 






010152 


012746 


010174 




010156 


012746 


000002 




010162 


010600 






010164 


104414 






010166 


062706 


000006 


914 


010172 


000207 




9ir> 








916 


010174 


045 


116 


917 








918 








919 








9?0 








921 








92*? 








935 








924 








925 








926 








92 7 








928 








929 








930 








951 


010236 






932 


010236 






933 


010242 


013700 


002230 


934 


010246 


013701 


002232 


955 


010252 


010102 




936 


010254 


006101 




93 7 


010256 


006100 




938 


010260 








010260 


010246 






010262 


010046 






010264 


012746 


010306 




010270 


012746 


000003 




010274 


010600 






010276 


104414 






010300 


062706 


000010 


939 


010304 


000207 




940 








9*1 


010306 


045 


116 


942 








94 3 








944 








945 








946 








94 7 








94a 









M1113 06-FEB-84 18j04 



1 



SEQ 043 



; INPUTS; 



PRIRAM; 



045 RAMFOR 



R4 


RAM ADDRESS 


SAVREG 




PRINTB 


ORAMF0R.R4 


MOV 


R4,-(SP) 


MOV 


ORAMfOR, -(SP) 


MOV 


02,-CSP) 


MOV 


SP,RO 


TRAP 


CIPNTB 


ADD 


06, SP 


RTS 


PC 


.ASCIZ 


'KNrfA CONTROL 


.EVEN 





jSAVE R1-R5 UNTIL NEXT RETURN 
j PRINT RAM ADDRESS IN ERROR 



I RE TURN 



*06 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 

c NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



THIS ROUTINE lb 



IMPLICIT INPUTS 



PRIADD: 



045 PRIAO: 



ERRHI 
ERRLO 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 

MOV 

:iov 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 

.EVEN 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



ERRHI. RO 

ERRLO, Rl 

R1.R2 

Rl 

RO 

OPRIAO,RO,R2 

R2.-CSP) 

RO, (SP) 

OPRIAO.-(SP) 

03, (SP) 

SP.RO 

CiPNTB 

010, SP 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH AODRESSS 

{GET LOW ADDRESS 

j COPY LOW ADORESS 

iSHIFT BIT 15 TO C BIT 

I5HIFT INTO HIGH ORDER 

l PRINT MEMORY ADDRESS IN ERROR 



jRETURN 



*N*A MEMORY ERROR ADDRESS - H01K05' 



.SBTTL PR1TADD - PRINT MEMORY TEST ADDRESS 



{PRINT MEMORY ADDRESS 

r * ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES 



iTHIb 



F4 



TSV? GLOBAL AREAS MACRO M1H3 06-FEB-84 18:04 
PRITADD - PRINT MEMORY TEST ADDRESS 



SEQ 044 



949 

950 

951 

952 

953 

954 

955 

956 

95? 

953 

959 

960 

961 

<>62 

963 



} 



964 



9o5 

966 

967 

9f>G 

969 

970 

971 

972 

973 

9 74 

975 

976 
077 

9.'o 
979 
980 
9^1 
982 
983 
984 
985 
986 

9a/ 

988 
089 
990 
991 
9*2 
VS3 



010352 
010352 
010356 
010362 



010366 
010366 
010370 
010374 
010400 
010402 
010404 
010410 
010410 
010412 
010416 
010422 
010-424 
010426 
010432 

010434 
010477 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



H.TUH ORDER ADDRESS 
- LOW ORDER ADDRESS 



PRITADD: 



013702 
013701 



010146 
012746 
012746 
010600 
104414 
062706 

010246 
012746 
012746 
010600 
104414 
062706 
000207 

045 
045 



002230 
002232 



010434 
000002 



000006 



010477 
000002 



000006 



116 
116 



045 PRITO: 
045 PRITl: 



SAVREG 

MOV 

MOV 

j MOV 

}ROL 

jROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



ERRHI t R2 

ERRL0»R1 

R1.R2 

Rl 

RO 

4PRIT0,R1 

Rl.-CSP) 

*PRITO.-(SP) 

42,-CSP) 

SP.RO 

CIPNT8 

*6,SP 

•PRIT1.R2 

R2,-(SP) 

*PRIT1.-(SP) 

♦2,-CSP) 

SP.RO 

CIPNTB 

*6,SP 

PC 



j SAVE R1-R5 UNTIL NEXT RETURN 

jGET HIGH ADDRESSS 

j GET LOW ADDRESS 

jCOPY LOW ADDRESS 

;SHIFT BIT 15 TO C BIT 

{SHIFT INTO HIGH ORDER 

1 PRINT MEMORY ADDRESS LOW IN ERROR 



iPRINT MEMORY ADDRESS HIGH IN ERROR 



•*hWA 
»*N*A 

SPACE 



MEMORY 
MEMORY 



I RETURN 

TEST ADDRESS LOW 

TEST ADORESS HIGH 



*06 • 

• *06 



SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT: 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT 15 - IS FORWARD 

BIT15 • I IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUS 



OUTPUT: 



CARRY SET - SrACr. RECORDS COMMAND OK 
CLR - SPACE HECORDS FAILED 



RO THE CONTENTS CF R4 15 MOVED TO RO 



G4 



TS\:- - GLOBAL AREAS 
SPACF. ♦ SPACE RECORDS 


MACRO M 
(FORWAR 


h And Si 


-FFR-84 
VERSE) 


18:04 

COMMAND 




994 
















)9!> 
















■?96 

■;93 

Q99 
• 000 










{IMPLICIT OUTPUT: 












TAPE HAS BEEN MOVED 










JsiDE 


EFFECTS: 




.001 
















1002 
















1003 










» 






\004 
















.•.005 


010544 








SPACE: 


• 

♦ 




3 006 


010544 










SAVREG 




;tOOV 


010550 


012737 


000764 


010740 




MOV 


$500. ,SDELA 


:..*jOb 


010556 


012737 


140010 


010730 




MOV 


$140010.80$ 


:oo9 


010564 


005703 








TST 


R3 


HMO 


0iC566 


100403 








BMI 


5$ 


LOU 


010570 


010337 


010732 






MOV 


R3,90$ 


101? 


010574 


000407 








BR 


10$ 


10 is 


010576 


042703 


100000 




5*: 


BIC 


06IT15.R3 


.'014 


010602 


010337 


010732 






MOV 


R3,90$ 


A .'IS 


010606 


052737 


000400 


010730 




BIS 


$6118,80$ 


iOlfi 


010614 


012704 


010730 




10$: 


MOV 


$80$.R4 


'017 


010620 


010465 


000000 






MOV 


R4.TSDBCR5) 


:■.'.)] 8 


010624 


004737 


016330 




15*: 


JSR 


PC.WAITF 


. Jl e > 


010630 


103420 








BCS 


20$ 


1020 


010632 










DELAY 


250 




010632 


012727 


000250 






MOV 


#250,(PC)» 




010636 


000000 








,WORD 







010640 


013727 


002116 






MOV 


LIDLY.(PC)* 




010644 


000000 








.WORD 







010646 


005367 


177772 






DEC 


-6(PC) 




010652 


001375 








BNE 


. -4 




010654 


005367 


177756 






OEC 


-22CPC) 




010660 


001367 








BNE 


♦ -20 


3 r >21 


010662 


005337 


010740 






DEC 


SDELAY 


. 02? 


010666 


001356 








BNE 


15$ 


1023 


010670 


000411 








BR 


60$ 


! , 0c>4 


010672 


016501 


000002 




20$: 


MOV 


TSSRCR55.R1 


j 005 


010676 


012702 


000200 






MOV 


0SSR.R2 


> C?6 


010702 


020201 






25$: 


CMP 


R2.R1 


If. 2 7 


010704 


001401 








BEQ 


40$ 


; ^;?b 


010706 


000402 








BR 


60$ 


J (139 


010710 


000261 






40$: 


SbC 




;i)V' 


10712 


000401 








BR 


70$ 


:■ > '• i 


010714 


000241 






60$: 


CLC 




M-J. 1 


010716 








70$: 






. 0.,5 


010716 


Oi.0400 








MOV 


R4,R0 


10^4 


010720 


000207 








RTS 


PC 



SEQ 045 



;save the general registers 
i set up delay 

i set up command. space forward 
i check for direction 
t br, if reverse indicated 
{load up number of records to space 
{go do commano 
{Clear direction bit 
{load up number of records 10 space 
{set reverse bit in command packet 
{set up r4 with packet address 
{send out command 
{wait for ssr 
|br, if ssr is set and ok 
{delay about .25 seconds 



{BUMP DELAY COUNTER DOWN 

i BR, IF MORE DELAY 

jBR IF TROUBLE CARRY - CLEAR 

{READ TSSR 

{SET UP EXPECTED 

;ARE THEY OK 

j BR, IF EQUAL • OK 

{TROUBLE EXIT 

{SET CARRY NO TROUBLE 

{EXIT 

{CARRY CLEAR - ERROR 



;PASS PACKET 
{RETURN 



ADDRESS 



H4 



SPACL 



GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 
- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



SEQ 046 



1036 
}037 
' '">?*> 

10*0 
.1042 
1044 

;o4s 

1046 
104 7 
1048 

:• oi 9 

1050 
1051 
10S2 
1053 
1054 
10S!> 
1056 
I OS 7 
i0j»8 
1059 

:o6o 

1061 
106? 
1065 
1064 
1065 
lOt-G 
1067 
1068 
1069 
1070 
10 71. 
1072 
10/3 
10 74 
1075 
10 76 
107 7 
10'/ 8 
1079 
3 OhO 
1081 
::.062 
1083 
1084 
lOrij 
1086 
3.C87 
1088 
1089 
1090 
.1091 
109? 
'093 
1094 



010730 



010730 000000 



010732 
010734 
010736 
010740 



010742 
010742 
010746 
010752 
010756 
010762 
010766 
010770 
010772 
010776 



000000 
000000 
000000 
000000 



005037 
005037 
010465 
004737 
103401 
000435 
016501 
012702 



002222 
002220 
000000 
016416 



000002 
000200 



; PACKET FOR SPACE COMMAND 

.»<.»10>6177770 

j COMMAND WORD 

80$: .WORD 

{NUMBER OF RECORDS TO BE SPACED OVER WORD 

90$; .WORD 

.WORD 

.WORD 







{DELAY COUNTER 



SDELAYj .WORD 
.EVEN 
.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT • 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR ~ WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA - EXTENDED FEATURES PRESENT 
BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR: 



10$ 



20$ 



SAVREG 

CLR 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

MOV 



BENBSW 

EXTFEA 

R4.TSDBCR5) 

PC.CHKTSSR 

20$ 

60$ 

TSSR(R5),R1 

*SSR,R2 



I SAVE THE GENERAL REGISTERS 
{CLEAR BUFFER ENABLE SWITCH 

{CLEAR EXTENOEO FEATURES SW SWITCH 

{SEND OUT COMMAND 

,WAIT FOR SSR 

jBR, IF SSR IS SET AND OK 

{BR IF TROUBLE CARR^r * CLEAR 

jREAO TSSR 

j SET UP EXPECTED 



14 



WRTfHR 



GLOBAL AREAS 



MACRO. M1U3 06-FEB-84 18:04 



WRITE CHARACTERISTICS COMMAND 



I09r» 

1096 
1007 

10SH 
.1 o99 

1100 
3.101 

no; 3 

?;.03 
1104 
1105 
\ 10b 
1107 
1103 
1109 
3.110 
1113 
3 11? 
3L11S 

iii4 

3 115 
1116 
U17 
1118 
3 119 
1120 
1121 

i u:2 

llrS 
il.?4 

u;-:6 

1*2<* 

iii?"* 

1150 

u-i 
.'.?.?.? 

ii.-:3 

. 1 .."_34 

H.V: 

:. ' 46 

:■ is? 

1110 
.141 
\)M> 
31* -5 
1144 
1 V4 C > 
.' 14-b 
114/ 

lilt? 
1149 
j 1 '0 
1131 



01100? 
011006 
011010 
011014 
011016 
011020 
011022 
011026 
011030 
011036 
011040 
011044 
011044 
011052 
01)054 
011060 
011060 
011062 
011064 
011066 
011072 



0110/4 
011074 
01 1100 
011104 

OilUO 

011114 

0111JO 
011122 



032701 
001402 
052702 
020201 
001401 
000421 
062704 
011403 
032763 
001402 
003237 

032763 
001402 
005237 

000261 
000401 
000241 
016500 
000207 



012704 
010465 
012703 
004737 
103417 



000100 
000100 

000010 

000200 000012 

002220 

000100 000012 

002222 

000002 



011170 

000000 
000 r j50 
016330 



25$: 
40$: 

45$: 
50$: 



60$: 
70$: 



t * 



BIT 

BEQ 

BIS 

CMP 

BEQ 

BR 

ADO 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 

BR 

CLC 

MCV 

RTS 

.SBTTL 



O0FL.R1 

25$ 

00FL.R2 

R2.R1 

40$ 

60$ 

*8. ,R4 

CR4) R3 

0X2,EXTF,XST2(R3j 

45$ 

EXTFEA 

0X2. BUTE, XST2CR3) 

50$ 

BENBSW 



70$ 

TSSRCR5),R0 
PC 



REWIND - POSITION TAPE (REWIND) COMMAND 



SEQ 047 



,WAS OFF LINE SET IN TSSR 

j BR, IF NO OFL SET 

tMAKE THEM LOOK ALIKE 

{ARE THEY OK 

j BR, IF EQUAL - OK 

j TROUBLE EXIT 

{POINT TO URT CHARA DATA PACKET 

{GET ADDRESS OF MESSAGE BUFFER 

{EXTENDED FEATURES BIT SET? 

j BR IF NO 

j SET EXTENDED FEATURES SW SUITCH 

{BUFFER ENABLE SWITCH SET 
jBR, IF SWITCH NOT SET 
{SET SOFTWARE SWITCH FOR ENABLED 

j SET CARRY NO TROUBLE 

{EXIT 

{CARRY CLEAR - ERROR 

{RETURN TSSR CONTENTS 

{RETURN 



:THIS ROUTINE WILL REWIND THE SELECTED TAPE 



J 



CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



i CALLING SEQUENCE: 



DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC .REWIND 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



REWIND: 


SAVREG 






MOV 


ORWPACK ,R4 




MOV 


R4.TSDBCR5) 




MOV 


0360. ,R3 


10$: 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250. 



NEXT 



RETURN 



{SAVE HI-R5 UNTIL 

,GET PACKET ADORF' 

i SEND PACKET ADDRESS TO EXECUTE 

{ENOUGH TIME FOR 2400' REEL TO REWIND 

{WAIT FOR SSR TO SET 

1 1 £ AVE WHEN SSR IS SE T 



{WAIT FOR .25 



SECONDS 



J4 



TSV5 - GLOBAL AREAS 


macro r 


REWIND 


- POSITION TAPE 


(REWINC 




011122 


012727 


000372 




011I.? r > 


000000 






oimo 


0137ii7 


002116 




OH 134 


000000 






011136 


005367 


177772 




01U43 


001375 






011144 


005367 


177756 




0111*50 


001367 




11 5c 


0.11152 


005303 




1155 


011 1SJ 


001357 




1154 


0U156 


000241 




i ir>: 


011160 


OJ.O4O0 




ii ; it 


01116,? 


000207 




1J.S7 








1 1 S'i 




Oil? 7A 




::6i 


011170 






nc: 


011170 


102010 




lio? 


011172 


OOOOftO 




ii*: * 








5.1o"- 








1 1 6f 








1J.<:7 








l.!.o? 








3 H^ 








11/0 








1171 








X 1. > i"- 








11 75 








11. 7. j 








1 ' 7 : . 

i • 








1 ?, 








1 1 7« 








. 179 








1180 








1183 








1102 








U83 








1184 








118_> 








1186 








1187 








1188 








1189 








1190 








1191 








1192 








1193 


011174 






1194 


011174 






1195 


011200 


012701 


002234 


1196 


011204 


012702 


000201 


1197 


011210 


005003 




1198 


011212 


004737 


016416 


1199 


011216 


112765 


000000 


1200 


011224 


004737 


016416 


1201 


011250 


010265 


000000 


1202 


011234 


004 737 


01641b 



M1113 06-FEB-84 18:04 
COMMAND 



SEQ 048 



20$: 



RWPACK: 



i ♦ 



MOV 


0250,. (PC)* 


.WORD 





MOV 


HDLY.CPC)* 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


DEC 


P3 


BNE 


lot 


CLC 




MOV 


R4.R0 


RTS 


PC 


,-<,*10 


>£177770 


.WORD 


102010 


.WORD 





.SBTTL 


CKRAM - C 



j BUMP COUNTER DOWN 

jKEEP GOING 

{CLEAR CARRY TO SET ERROR 

}PAS5 THE PACKET ADDRESS 

{RETURN 



jPOSTION COMMAND (REWIND) 
{NOT USED 
- COMPARE RAM TO I/O PACKET 



{ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
{MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



; INPUT : 

J 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET 
CLP 



RAM MATCHES PACKET 

RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE R.AhfJAIA TS FILLED WTTH THE 

DATA HELD IN RAM. 

RAMSTZ IS SET TO 8. FOR PRAMPKT ROUTINE 



{SIDE EFFECTS: 



THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



i - 



CKRAM 



000000 



10$: 



SAVREG 




MOV 


0RAM0ATA.R1 


MOV 


*RMPKTBEG,R2 


CLR 


R3 


JSR 


PC.CHKTSSR 


MOVB 


#0,TSDBCR5) 


JSR 


PC.CHKTSSR 


MOV 


R2.TSDBCR5) 


JSR 


PC.CHKTSSR 



{SAVE THE GENERAL REGISTERS 

{ADDRESS TO SAVE THE RAM DATA 

{BYTE ADDRESS OF FIRST RAM DATA 

{CLEAR THE ERROR FLAG 

{WAIT FOR SSR 

{SET MAINTENANCE MODE 

{WAIT FOR SSR TO SET 

: SELECT NEXT RAM ADDRESS 

{WAIT FOR SSR TO SET 



I<4 



TSV3 - GLOBAL AREAS MACRO MU13 
CKRAM - COMPARE RAM TO I/O PACKET 



06-FEB-84 18:04 



1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

121.1 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 



011240 
011244 
011246 
011250 
011252 
011254 
011260 
011262 
011264 
011?6*> 
011270 
011272 
011274 
011302 



011304 
011304 
011310 
011314 
011320 
011322 
011326 
011334 
011340 
011344 
011350 
011354 
011356 
011360 
011362 



116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



012701 
012702 
005003 
004737 
112765 
004 7 37 
010265 
004 737 
116511 
122124 
001*01 
005203 
005202 



000000 



000210 



000010 002274 



002234 
000167 

016416 
000000 
016416 
000000 
016416 
000000 



000000 





MOVD 


TSBA(R5),(R1) 




CMPB 


CRl)«,CRO» 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2.0RMPKTEND 




BLE 


10$ 




TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


MOV 


*8., RAMSIZ 




RTS 


PC 




.SBTTL 


CKRAM2 - COM 



5EQ 049 



jREAO THE RAM DATA 

I COMPARE TO EXPECTED 

jBRANCH IF OK 

j SET ERROR FLAG 

} ADDRESS OF NEXT RAM LOCATION 

t REACHED END YET ? 

{BRANCH TILL ALL READ 

} WAS AN ERROR FOUND ? 

jBPANCH IF NOT 

jC "AR CARRY TO SHOW ERROR 

;' "XIT 

i am-- GOOD COMPARE 

i SETUP RAMSIZ FOR PRAMPKT ROUTINE 

{RETURN 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK 



j INPUT: 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET 
CLR 



RAM MATCHES PACKET 

RAM DOES NOT MATCH PACKET 



; IMPLICIT OUTPUT: 



THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



i 
: - 



THE SUBSYSTEM IS LEFT T N MAINTENANCE MODE 



CKRAM2: 





SAVREG 






MOV 


4RAM0ATA.R1 




MOV 


ORMCH8EG.R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MCVB 


00.TSDBCR5) 


10$: 


JSR 


PC.CHKTSSR 




MOV 


R2,rS0B(R5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBArR5),{Ri) 




CMPB 


(R1)*,(R4)» 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 



I SAVE THE GENERAL REGISTERS 

{ADDRESS TO SAVE THE RAM DATA 

iBYTE ADDRESS OF FIRST RAM DATA 

: CLEAR THE ERROR FLAG 

{WAIT FOR SSR 

i SET MAINTENANCE MODE 

{WAIT FOR SSR TO SET 

i SELECT NEXT RAM ADDRESS 

jWAIT FOR SSR TO SET 

iREAD THE RAM DATA 

j COMPARE TO EXPECTED 

i BRANCH IF OK 

{S^T ERROR FLAG 

;ADDRESS OF NEXT RAM LOCATION 



TSV3 - GLOBAL AREAS MACRO M1113 

CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS 



06-FE8-8' 18:04 
DATA 



L4 



SEQ 050 



1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 



011364 
011372 
011376 
011400 
011406 
011412 
011414 
011416 
011422 
011424 
011426 
011430 
011432 
011434 
011436 



011440 
011440 
011444 
011450 
011454 
011460 
011462 
011466 
011470 
011472 
011474 
011476 
011502 
011506 
011510 
011512 
QXX5X4 



012737 000010 002274 

005737 002220 

001407 

012737 000012 002274 

02022 7 000200 

003750 

000403 

020227 000176 

003744 

005703 

001402 

00024 1 

000401 

000261 

C00207 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 





MOV 


08,. RAMSIZ 




TST 


EXTFEA 




BEQ 


25$ 




MOV 


#10. .RAMSIZ 




CMP 


R2.0RMCHEND 




BLE 


10$ 




BR 


27$ 


25$: 


CMP 


R2,*RMCHEND-2 




BLE 


10$ 


27$: 


TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


RTS 


PC 




,SBTTL 


CKMSG - COMPARE 



{ASSUME EXTFEA NOT SET 

lIS THE SOFTWARE EXTENDED FEATURES SET 
>BR, IF NOT SET 

»SET RAMSIZ FOR EXTEND FEATURES 
;AT END OF EXTENDED BUFFER 
iBR. IF NOT AT END YET 
jAT END BRANCH 
j REACHED END YET ? 
i BRANCH TILL ALL READ 
{WAS AN ERROR FOUND ? 
i BRANCH IF NOT 
l CLEAR CARRY TO SHOW ERROR 
i AND EXIT 

i SHOW GOOD COMPARE 
jRETURN 
WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPMCIT OUTPUT. 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: : 



002276 
002300 
003126 

017376 



002314 
002460 



00,0002 



10$: 



15$: 



25$: 



SAVREG 

MOV RO, RCVHIADD 

MOV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV R0.R1 

CLR R4 

CLR R3 

MOV R2.R5 

MOV (R2),EXPMSG(R4) 

MOV CR1),RECMSG(R4) 

CMP CR2)*,CR1)* 

BEQ 25$ 

INC R3 

ADO 02, RA 



{SAVE R1-R5 UNTIL NEXT RETURN 

j SAVE RECV HIGH ADDRESS 

I SAVE RECV LOW ADDRESS 

i TESTING ABOVE 28K? 

j BR IF NO 

{RETURN ADDRESS BIASED TO PAR6 IN RO 

{GET RETURNED ADDRESS BIASED TO PAR6 

l WORD IN BUFFER 

{CLEAR ERROR SEEN FLAG 

{GET EXPD BUFFER ADDRESS 

{SAVE EXPD FOR ERROR REPORT 

{SAVE RECV FOR ERROR REPORT 

{EXPD EQUAL RECV? 

iBR IF YES 

{SET ERROR SEEN FLAG 

{POINT TO NEXT WORD ADDRESS 



TSV3 * GLOBAL AREAS MACRO M1113 
CKMSG - COMPARE WRITE CHAR. MESSAGE 



BUFFI 



-64 18:04 



R 



M4 



SEQ 051 



1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 



1362 
1363 
1364 

1365 
1366 
1367 
1368 



011520 
011524 
011526 
011534 
011536 
011542 
011544 
011546 
011550 
011552 
011554 
011556 



011560 
011560 
011564 
011570 
011572 
011576 
011576 
01160? 
011606 
011610 
011612 
011616 
011622 
011626 
011632 
011634 
011640 
011642 



020427 000014 

003764 

032765 000200 000012 

001403 

020427 000016 

003755 

005703 

001402 

000241 

000401 

000261 

000207 



020327 
003412 
012703 

012746 
012746 
010600 
104417 
062706 
010037 
010137 
005737 
001403 
004737 
010001 
005004 



000144 

000144 

011712 
000001 



000004 
002276 
002300 
003126 

017376 



50$; 



55$: 
60$: 



CMP R4.014 jDONE FIRST 7 WORDS? 

BLE 15$ iBR IF NO 

BIT #X2.EXTF,XST2CR5)»IS EXTENDED FEATURES SET IN EXPD? 

BEQ 50$ j BR IF NO 

CMP R4.4X6 j DONE EXTENDED FEATURES WORD? 

BLE 15$ {BR IF NO 

TST R3 j ANY ERRORS SEEN? 

BEQ 55$ iBR IF NO 

CLC i SET FAILURE 

BR 60$ j 

SEC jSET SUCCESS 

RTS PC 'RETURN 

.SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



J 

I ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 

BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 

ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUM8ER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG2: 



5$: 



10$: 



SAVREG 

CMP 

BLE 

MOV 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 



I SAVE R1-R5 UNTIL NEXT RETURN 
R3.0RECMSG- EXPMSG i SSO IS COUNT ABOVE MAX ALLOWED? 
5$ iQaO 8R IF NO 

ORECMSG -EXPMSG , R3 : 800 
ODEBUGMSG j QS>0 

OOEBUGMSG.-CSP) 
•l.-CSP) 
SP.RO 
C$PNTF 
*4,SP 

RO, RCVHIADD 
Rl.RCVLOAD 
KTENABLE 
10$ 

PC.SETMAP 
R0,R1 
R4 



j SAVE 
iSAVE 



RECV HIGH ADDRESS 

RECV LOW ADDRESS 
I TESTING ABOVE 28K? 
I BR IF NO 

{RETURN ADDRESS BIASED TO PAR6 IN RO 
} GET RETURNED ADDRESS BIASED TO PAR6 
I WORD IN BUFFER 
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N4 



SEQ 052 



1369 


011644 


005005 




1370 


011646 


111264 


002314 


1371 


011652 


111164 


002460 


1372 


011656 


122221 




1373 


011660 


001401 




1374 


011662 


005205 




1375 


011664 


062704 


000001 


1376 


011670 


020403 




1377 


011672 


002001 




1378 


011674 


000764 




1379 


011676 


005705 




1380 


011700 


001402 




1381 


011702 


000241 




1382 


011704 


000401 




1383 


011706 


000261 




1384 


011710 


000207 




1385 








1386 


011712 


120 


122 


1387 


012002 


045 


116 


1388 


012013 


040 


040 


1389 


012046 


056 


056 


1390 


012101 


124 


105 


1391 








1392 








1393 








1394 








1395 








1396 








1397 








13)8 








1399 








1400 








1401 








1402 








1403 








1404 








1405 








1406 








1407 


012114 
012114 






1408 


012114 


004737 


006020 


1409 


012320 


004737 


017262 


1410 


012124 

012124 








012124 


104423 




1411 








1412 








1413 








1414 








1415 








1416 








1417 








1418 








1419 








1420 








1421 








1422 











CLR 


R5 


15$: 


MOVB 


(R2),EXPMSGCR4) 




MOVB 


(R1),RECMSGCR4) 




CMPB 


(R2)*,CR1)* 




BEQ 


25$ 




INC 


R5 


25$: 


ADD 


♦1.R4 




CMP 


R4.R3 




BGE 


50$ 




BR 


15$ 


50$: 


TST 


R5 




BEQ 


55$ 




CLC 






BR 


60$ 


55$: 


SEC 




60$: 


RTS 


PC 



117 DEBUGMSG: 
045 FERCM .ASCII 
124 ERCM: .ASCIZ 
056 SIMSG: .ASCIZ 
123 TINERR: .ASCIZ 
.EVEN 



I CLEAR ERROR SEEN FLAG 

sSAVE EXPO FOR ERROR REPORT 

{SAVE RECV FOR ERROR REPORT 

jEXPD EQUAL RECV? 

}BR IF YES 

j SET ERROR SEEN FLAG 

{POINT TO NEXT BYTE 

{DONE ALL BYTES? 

jBR IF YES 

)D0 NEXT BYTE 

;ANY ERRORS SEEN? 

{BR IF NO 

jSET FAILURE 

I SET SUCCESS 
{RETURN 

.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ,*a5)D 

/*N*A ***/ 

/ TSSR ERROR CODE REC'D « / 

/ AFTER DOING SOFT INITV 

/TEST: .../ 



{PRIM ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG:; 



BGNMSG SFIMSG 



L 10003: 



JSR 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 
PC.CKDROP 



C$MSG 



{PRINT CONTENTS OF TSSR REGISTER 
{DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



£ 



35 



TSV3 GLOBAL AREAS MACRO Mil 13 06-FEB-84 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



1423 

1424 
1425 
1426 
1427 



1428 
142* 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 

1441 
1442 
1443 
1444 



1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 

1456 

1457 



1458 
1459 

1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 

1470 



012126 
012126 
012126 
012132 
012136 
012142 
012142 
012142 



012144 
012144 
012144 
012150 
012154 
012160 
012160 
012160 



012162 
012162 
012162 
012166 
012166 
012166 



18; 04 



BGNMSG PKTSSR 



004 73 7 006020 
012700 000004 
004 737 007446 



104423 



PKTSSR; i 




JSR 


PC.PRITSSR 


MOV 


*4,R0 


JSR 


PC.PRIPKT 


ENDMSG 




L 10004: 





SEQ 053 



jPRINT THE CONTENTS OF TSSR REGISTER 

iNO. Of WORDS IN PACKET 

j PRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



CIMSG 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR ANO A GET STATUS COMMAND PACKET, 



INPUTS: 



004 737 006020 
012700 0OO002 
004 737 007446 



104423 



Rl 

P.fi 



BGNMSG 

PKTGETSs: 

JSR 
MOV 
JSR 
ENOMSG 

L 10005: 

TRAP 



TSSR CONTENTS 

AODRESS OF COMMAND PACKET 



PKTGETS 

PC.PRITSSR 

*2,R0 

PC.PRIPKT 



CtMSG 



iPRl'NT THE CONTENTS OF TSSR REGISTER 
»N0. Of WORDS IN GET STATUS PACKET 
»PRINT THE CONTENTS OF COMMANO PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS; 



004737 006020 



104423 



SFFMSG: 
L 10006: 



Rl 
R4 



BGNMSG 

JSR 
ENDMSG 

TRAP 

.SBTTL 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



SFFMSG 
PC.PRITSSR 

CtMSG 
FKTMES 



iPRINT CONTENTS OF TSSR REGISTER 



PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTSi 



Rl CONTENTS OF TSSR 

P2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER I^SSAGE BUFFER ADDRESS 

NOTE} R3 IS IGNORED IF K TENABLE FLAG IS CLEAR 



TSV3 
PKTMES 

1471 

1472 

1473 

1^74 
1475 
1476 
1477 



1476 
1479 
1480 
1481 
1482 
14S3 
1484 
1485 
1486 
1487 
148b 
1489 
1490 

1491 
1492 
1493 
1494 



1495 
l'i96 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 

1509 
1510 
1511 
1512 
1513 
1514 



1515 

1516 
151/ 

1518 



GLO 



PfiWf3§R AND^ABHcWgfr^- 84 18 < 04 



C5 



SEQ 054 



01^170 
012170 
012170 
012174 
012176 
012200 
012204 
012204 
012204 



012206 
012206 
012206 
012212 
012216 
012222 
012222 
ni2222 



012224 
012224 
012224 
012230 
012234 
012236 
012242 
012246 
012246 
0122'*t 



004737 006020 

010200 

010301 

004737 014322 



104423 



* 



PKTMES; 



BGNMSG PKTMES 



L 10007; 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 
.SBTTL 



PC.PRITSSR 
R2.R0 
R3,R1 
PC.PRMESS 



iPRINT CONTENTS OF TSSR 
I LOW ORDER ADDRESS 
I HIGH ORDER ADDRESS 
jPRINT THE MESSAGE BUFFER 



CIMSG 

ADDSSR 



- PRINT TEST ADDRESS AND TSSP 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS! 



R5 FIRST DEVICE UNIBUS ADDPESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010352 
016501 000002 
004737 006020 



104423 



J - 



ADDSSR j 



BGNMSG ADDSSR 



JSR 


PC.PRITADD 


MOV 


TSSR(R5),R1 


JSR 


PC.PRITSSR 


ENOMSG 




L 10010 i 




TRAP 


CIMSG 


• SBTTL 


MSGEXP - PR 



iPRINT MEMORY TEST ADDRESS 

»GET CURRENT TSSR 

iPRINT THE CONTENTS Of TSSR REGISTER 



MSGEXP - PRINT WRITE CHAR. EXPD-RECV ME5SAGE BUFFERS 



PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS; 

EXPNSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



012^00 000007 

005737 002220 
001402 

012700 000010 

00473/ 014632 



104423 



MSGEXP; ; 




MOV 


07.R0 


TST 


EXTFEA 


BEO 


5t 


MOV 


08. ,R0 


5$; JSR 


PC.PRMSGEXP 


ENOMSG 




L10011; 




TRAP 


CfMSG 


, SBTTL 


FIFEXP - P 



lASSUME NO EXT FEATURES 

lEXT FEATURES SET? 

iBR IF NO 

lEXT FEATURE BUFFER lb 8 WORDS 

iPRINT EXPD/RECV MESSAGE BUFFERS 



PRINT FIFO EXP/RECV DATA 



iPRINT ROUTINE TO PRINT FIFO LXP/RtCV DATA 



01 



_) 



m* t,L °p^Nf Hh w%m mh 



3 06-FEB-84 18;04 



SEQ 055 



1519 

1520 

1521 
1522 
1523 
1524 

1525 
1526 
1527 

1528 



1529 



1530 
1531 
1532 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
154 7 
1548 
1549 

1550 
1551 
1552 
1553 



1554 
1555 



012250 

012250 
012250 
012250 
012252 
012256 
012262 
012264 
012266 
012272 
012272 
012276 
012302 
012X04 
012306 
012312 
012714 
01232C 
012320 
012320 
012322 

m?*7i 



012430 
012430 
012430 
012434 
012436 
012440 
012440 
012442 
012446 
012450 
012452 
012456 
012460 



010146 
012746 
01*746 
010600 
104455 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000 766 
012700 



Rl 

IMPLICIT INPUTS; 



BYTE COUNT 



EXPMSG - EXPECTED MESSAGE BUFFER CCONTAINS FIFO DATA ONL Y 
RECMSG - RECEIVED MESSAGE BUFFER CCONTAINS FIFO DATA ONLY) 



FIFEXPu 



BGNMSG FIFEXP 



012322 
000002 



000006 

012371 
000001 



000004 
015202 



116 
116 



L100J.2: 

045 TIFIMSG; 
045 FIF2MSG} 



0124 72 



000001 



000004 
000012 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENOMSG 

TRAP 



0FIF1MSG.R1 

Rl.-CSP) 

*FIF1MSG,~CSP) 

02.-CSP) 

SP,R0 

CiPNTX 

*6,SP 

*FIF2MSG 

*FIF2MSG,-(SP) 

♦l.-(SP) 

SP.RO 

C4PNTX 

♦4,SP 

Rl.RO 

PC.PRBYTEXP 



jPRINT BYTES TRANSFERRED 



j PRINT HEADER MSG 



iGET BYTE COUNT 

jPRINT FIFO BYTES IN ERROR 



.EVEN 
,SBTTL 



CSMSG 

.ASCIZ 

.ASCIZ 



#N#A NUMBER OF BYTES TRANSFERRED - *D2 
*N*A FIFO DATA BYTES IN ERROR;' 



MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



i * 



, PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



; IMPLICIT INPUTS; 



{ 
$ 
i 

BGNMSG 
MSGSTAT:; 

MOV 



EX°MSG - EXPECTEO MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



10$ 



20$ 



MOV 
BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 



MSGSTAT 

OSTATC00.R1 

(R1)*,R0 

20$ 

RO 

RO.-CSP) 

♦ 1, -CSP) 

SP.RO 

CIPNTX 

•4.SP 

101 

010, # R0 



l ASCII ADDRESS TABLE 
I DONE ALL MSG LINES? 
jBR IF YES 
jPRINT STATUS BIT NAMES 



j DO ANOTHER MSG LINE 
j NUMBER OF WORDS IN A 



READ STATUS BUFFER 



E5 



TSV3 - GLOBAL AREAS MACRO Ml 113 06-FEB-84 18:04 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



1556 
1557 



1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 

1581 
1582 
1583 
1584 



012464 
012470 
0124 70 
012470 

012472 
012510 
012552 
012643 
012734 
013025 
013067 



1585 
1586 
1567 
1588 



1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 



013144 
0131<»4 
013144 
013150 
013152 
013154 
013154 
013156 
013162 
013164 
013166 
013172 
013174 
013200 
013204 
013204 
013204 

013206 
013226 
0133C1 
013400 
013477 
013576 
013675 
013774 



004737 014632 



104423 

012510 
045 
045 
045 
045 
045 
045 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
0127OO 
004737 



104423 

013226 

045 
045 
045 
045 
045 
045 
045 



012552 
116 
116 
116 
116 
116 
116 



013206 



000001 



000004 

000012 
014632 



01.3301 
116 
116 
116 

116 
1.16 
116 
116 



045 
045 
04 L 
045 
045 
045 



L10013: 



JSR 
ENDMSG 



TRAP 



012643 STATCOO: 



1* 
2$ 
3$ 
4$ 

5* 



045 
045 
045 
045 
045 
045 
045 



.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 



6*1. ASCIZ 



#N*A 
*N#M 
*N*A 
*N*A 
*N*A 
»N*A 



PC.PRMSGEXP 

CiMSG 

.WORD li,2i.3i,4i,5i.6i.0 



SEQ 056 



I PRINT EXPD/RECV MESSAGE BUFFERS 



Tape Bus Slonals in 
PARERR<15> 
IRESV2<14> 
IRESV1<13> 

Tape Bus Signals 
DATMIS<7> 



Word $8:' 

IEOT <12> 

IIDENT<11> 

ICER <10> 
n Word 09:' 
ILW<6> 0UTRDY<5> 



IFMK <9> 
IHER <8> 

ISPEED<7> 



IRDY<6> 
I0NL<5> 
ILDP<4> 



IRWD<2>' 
IFBY<1>' 
IFPT<0>' 



INRDY<4>' 



.EVEN 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

; * 

j PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

'IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG 
MSGLOOP:: 

MOV 



10$ 



20$ 



L10014: 



MOV 
BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSR 

ENDMSG 



TRAP 



MSGLOOP 

♦L00PC00.R1 

CR1)»,R0 

201 

RO 

RO.-(SP) 

•1,-CSP) 

SP.RO 

CIPNTX 

04, SP 

10$ 

010, ,R0 

PC.PRMSGEXP 



C$MSG 



lASCII ADDRESS TABLE 
j DONE ALL MSG LINES? 
»BR IF YES 
jPRINT STATUS BIT NAMES 



{ D0 ANOTHER MSG LINE 

;NUMBER OF WC9DS IN A READ STATUS BUFFER 

j PRINT EXPD/RECV MESSAGE BUFFERS 



013400 LOOPCOO: 



1$ 

2$ 
3$ 

4$ 
5$ 

6$ 
7$ 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 



.WORD 1$,2$,3$,4$,5$,6$,7$,0 
*N*A Tape Bus Loopback Sionals »n I 
#N#A PARERR<15> 
*N*A IHISP->IE0T<12> 
*N#A IWFM ->IFMK<09> 
*N*A ITAD0->IRDY<06> 
*N*A IREW ->IDBY<03> 
*N#A IGO »>IFPT<00>' 



Signals in Word #8:' 




IRESV2<14-» 


IRESVI*1S>' 


IWRT->II0ENT<11^ 


IREV ->ICER <10^' 


IEDIT->IHER <08> 


IFAD »>ISPEED<0/>' 


ITA01->I0NL <05> 


IERASE->ILDP <04> 


IRWU ->IRWO <02> 


IFEN ->IFB> <01*>* 



,EVFN 

.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



jPRINT ROUTINE TO PRINT MESSACE BUFFER EXPD/RECV 



F5 



T5V3 
MSGSUB 

1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 

1613 

1614 
1615 



1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 

1630 
1631 
1632 
1633 

1634 



1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
164 7 
1648 
1649 
1650 
1651 
1652 
1653 



GLOBAL AREAS 
PRINT WRITE 



MACRO Mill3 06-FEB-84 18:04 
SUBSYSTEM MESSAGE BUFFER 



SEQ 057 



I 



014022 
014022 
014022 
014026 
014032 
014032 
014032 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



0X2700 
004737 



104423 



000012 
014632 



MSGSUB: : 



BGNMSG MSGSUB 



L 100 15: 



MOV 
JSR 
ENDMSG 

TRAP 
.SBTTL 



010,. RO 
PC.PRMSGEXP 



{SIZE OF WRITE SUBSYSTEM BUFFER 
I PRINT EXPD/RECV MESSAGE BUFFERS 



C*MSG 

MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



014034 
014034 
014034 
014040 
014044 
014050 
014054 
C14054 
014054 



004737 010236 

013701 002224 

013702 002226 
004737 010020 



104423 



J - 

MEMADD: 



BGNMSG MEMADD 



L10016: 



i ♦ 



JSR 
MOV 
MOV 
JSR 
ENDMSG 

TRAP 
.SBTTL 



PC.PRIADD 
EXPD.R1 
RECV,R2 
PC.PRIXOR 



C$MSG 
PRAMPKT 



j PRINT MEMORY ADDRESS IN ERROR 
{GET EXPD DATA 
iGET RECEIVED DATA 
;PRINT EXPD/RECV 



PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH, 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



G5 



TSV3 GLOBAL AREAS MACRO Ml 113 
PRAMPKT - PRINT RAM AND PACKET DATA 



06-FEB-84 18:04 



SEQ 058 



1654 








1655 








1656 


014056 






1657 


014056 






1658 


014062 


012701 


002234 


1659 


014066 


005002 




1660 


014070 


122124 




1661 


01407^ 


001005 




1662 


01*074 






1663 


014104 


000436 




1664 


014106 


116105 


177777 


1665 


014112 


116403 


177777 


1666 


014116 






1667 


014126 


042703 


177400 


1668 


014132 


116137 


177777 002226 


1669 


014140 


] 16437 


177777 002224 


1670 


014146 








014146 


010346 






014150 


013746 


002224 




014154 


013746 


002226 




014160 


010246 






014162 


012746 


014236 




014166 


012746 


000005 




014172 


010600 






014174 


104414 






01-1176 


062706 


000014 


1671 


014202 


005202 




1672 


014204 


005737 


002274 


1673 


014210 


001404 




1674 


014212 


020237 


002274 


1675 


014216 


003724 




1676 


014220 


000403 




1677 


014222 


020227 


C00010 


1678 


014226 


002720 




1679 


014230 


005037 


002274 


1680 


014234 


000207 




1681 








1682 


014236 


045 


116 045 


1683 








1684 








1685 








1686 








1687 








1688 








1689 








1690 








1691 








1692 








1693 








1694 








1695 








1696 








1697 








1698 








1699 








1700 








1701 


014322 







J - 



PRAMPKT: 



5$ 



SAVREG 

MOV *RAMDATA,R1 

CLR R2 

CMPB (R1)*,(R4)» 

BNE 7$ 

FORCERROR 7$ ( N0TSSR 



I SAVE R1-R5 UNTIL NEXT RETURN 

I DATA FROM THE RAM 

lINIT 3YTE NUMBER 

I COMPARE EXPECTED, RECEIVED 

{BR IF NO MATCH 





BR 


101 


jQSD 


7$: 


MOVB 


-1CRD.R5 


{GET RECV RAM DATA 




MOVB 


-1(R4),R3 


iGET EXPO PACKET DATA 




XOR 


R5.R3 


jXOR EXPD/RECV 




BIC 


0177400, R3 


jLOW BYTE ONLY 




MCVB 


-1CRD.RECV 


iGET RECEIVED RAM DATA 




MOVB 


-1CR4),EXPD 


iGET EXPECTED RAM DATA 




PRINTB 


*RAMASC,R2,RECV,EXPD,R3 






MOV 


R3.-CSP) 






MOV 


EXPD,-CSP) 






MOV 


RECV.-(SP) 






MOV 


R2,-(SP) 






MOV 


ORAMASC-CSP) 






MOV 


•5,-CSP) 






MOV 


SP,RO 






TRAP 


CIPNTB 






ADD 


♦14, SP 




10$ t 


INC 


R2 


;UPDATE BYTE COUNT 




TST 


RAMSIZ 


jDEFAULT TO 8.? 




3EQ 


15* 


1 BR IF YES 




CMP 


R2, RAMSIZ 


iDONE ALL BYTES? 




BLE 


5$ 


j BR IF NO 




BR 


25$ 


I 


15$: 


CMP 


R2,*8. 


iDONE DEFAULT NUMBER OF BYTES? 


20$: 


BLT 


5$ 


j BR IF NO 


25$: 


CLR 


RAMSIZ 


jSET DEFAULT RAMSIZ 




RTS 


PC 


i RETURN 



045 RAMASC: .ASCIZ 
.EVEN 
.SBTTL PRMESS 



*N*A BYTE: #D2*P RAM: «03#A Packet: *03*A X0R:*03' 
- PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

TSV-05. 

INPUT: 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: Rl IS IGNORED IF KTENA8LE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRIN' ROUTINE 



PRMESS: 



TSV3 - GLOBAL AREAS 
PRMESS 



MACRO Ml 113 
- PRINT CONTENTS OF MESSAGE 



1702 

1703 
1704 
1705 
1706 
170^ 
1708 
1709 
1710 



1711 



1712 
1713 
1714 
1715 
1716 
1717 
1718 



1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
172 7 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 

I7:w 

1738 
1739 



C14322 
014326 
014330 
014334 
014336 
014340 
014342 
014344 
014346 
014346 
014350 
014352 
014356 
014362 
014364 
014366 
014372 
014372 
01437*. 
014402 
014404 
014406 
014412 
01*414 
034416 
014420 
014422 
014426 
014450 
014430 
014432 
014434 
014440 
014444 
014446 
014450 
014454 
014456 
014«62 
014464 
014466 
014474 
014476 

0145C0 
014545 
014603 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
0127A6 
012746 
010600 
104415 
062706 

012746 

012746 
010600 
101415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 

012546 
010446 
0X271-6 

012740 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 
045 
045 



003126 



10$: 



014500 
000003 



000010 

014545 
000001 



000004 



017376 



014603 
00000 3 



000010 
000007 



000200 000012 



06-FEB-84 18:04 
BUFFER 



SAVREG 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BGT 

BLT 

BI 

BNE 

RTf, 



20$; 



116 
116 
116 



045 
045 
045 



50$: 

PROASC 
PR1A5C 
PRASCj 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



5 



R0.R5 

KTENABLE 

10$ 

Rl 

R1.R3 

RO 

Rl 

OPROASC, R1.R5 

R5.-CSP) 

Rl. (SP) 

OPROASC, -(SP) 

*3,-(SP) 

SP.RO 

CIPNTX 

01O.SP 

0PR1ASC 

♦PRIASC-(SP) 

01, -(SP) 

SP.RO 

CtPNTX 

04, SP 

R4 

R5.R1 

R3.R0 

20$ 

PC.SETMAP 

R0.R5 

*PRASC,M,(R5)f 

(R5)»,-(SP) 

R4.-CSP) 

*PRASC,-(SP) 

•3,-CSP) 

SP.RO 

C$PNTX 

«10,5P 

R4 

R4,*7 

50$ 

20$ 

*X2,EXTF,XST2(R 

20$ 

PC 



5EQ 059 



»SAVE THE REGISTERS 

{SAVE LOW ORDER ADDRESS 

; ADDRESS ABOVE 28K? 

{BR IF YES 

»SET HIGH ORDER ADDRESS TO 

j SAVE HIGH ORDER ADDRESS 

{SHIFT BIT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



jPRINT HEADER FOR CONTENTS 



{NUMBER OF THE NEXT WORD 

{COPY LOU ORDER ADDRESS 

I COPY HIGH ORDER ADDRESS 

j BR IF NOT ABOVE 28K 

{SETUP PAR ADDRESS IN RO 

jGET PAR FORMAT ADDRESS ABOVE 28K 

{PRINT THE CONTENTS OF MEMORY BUFFER 



{NUMBER OF THE NEXT 
{DONE ALL YET ? 
{BRANCH IF ALL DONE 
{PRINT FIRST 7 WORDS 
3)tEXTENDED FEATUTES ON ? 
{PRINT EXTENOED STATUS WORD 
{RETURN 



rtN#A Message Buffer Address - 
*N*A Message Buffer Contents: 
*N*A Word*01*A: *0* 



K0H05 1 



PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 



TSV3 - GLOBAL AREAS MACRO M1113 06-FFB-84 18:04 
PRMSGF.XP - PRINT EXPD/RECV MESSAGE BUFFERS 



15 



SEQ 060 



1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 



1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 



176? 
1763 
1764 
1765 
1766 
1767 
1768 
1769 

1770 

1771 
1772 

1773 
17 74 
1775 



014632 
014632 
014636 
014640 
014644 
014646 
014652 
014654 
014656 
014656 
014660 
014662 
014666 
014672 
014674 
01467b 
014702 
014702 
014706 
014712 
014714 
014716 
014722 
014724 
014730 
014 734 
014736 
014740 
014750 
014750 
014752 
014754 
014756 
014760 
014/64 
014770 
014772 
014774 
015000 
015002 
015004 
015006 
015010 

015012 
015057 
015115 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
Ollioc 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
OOC7S2 
000207 

04^ 
045 



002300 
002276 



015012 
000003 



000010 

015057 
000001 



000004 

002314 
002460 



015115 
000005 



000014 



i 
J 

PRMSGEXP: : 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLR 

MOV 

MOV 

20$: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
BGE 
BR 

50$: RTS 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIAOD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



116 
J16 

116 



045 PRMSGO 
045 PRMSG1 
045 PRMSG2 



{ ► 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

.SBTTL 



R0.R5 

RCVL0ADD,R0 

R0.R4 

RCVHIADD.R1 

RO 

Rl 

*PRMSG0,R1 5 R4 

R4,-(SP) 

Rl.-CSP) 

0PRMSGO, -(SP) 

•3.-CSP) 

SP.RO 

CIPNTX 

*10,SP 

0PRMSG1 

•PRMSG1.-CSP) 

41,-CSP) 

SP.RO 

CIPNTX 

44.SP 

R4 

*EXPMSG.R1 

*RECMSC.R2 

CRD.RO 

CR2),R3 

RO R** 

♦PRMSG2.R4.CR1 

R3.-CSP) 

(R2)*.-CSP) 

CR1)*.-CSP) 

R4.-CSP) 

«PRMSn2,-CSP) 

OS.-CSP) 

SP,RO 

C$PNTX 

«14,SP 

R4 

R4.R5 

50 1 

20$ 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

j SAVE NUMBER OF WORDS 

{GET RECV LOW ADDRESS 

j COPY LOW ADDRESS 

iGET RECV HIGH ADDRESS 

{SHIFT BIT15 TO C BIT 

i SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



I PRINT HEADER FOR CONTENTS 



jNUM8ER OF THE CURRENT WORD 
I GET EXPO BUFFER ADDRESS 
;GET RECV BUFFER ADDRESS 
jGET EX^D 
{GET RECV 
jXOR EXPD/RECV 
)*,(R2)»,R3 



i NUMBER OF THE NFXT 
j DONE ALL YET? 
iBR IF YES 
»D0 ANOTHER 
, RETURN 



' *N*A Message Buffer Address - #01*05' 

«*N*A Messaoe Buffer Contents; ' 

'*N*A WORD <*D2*A EXPO: *06*A RECV: 



JS*A XOR: *06 



PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



{ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 



J 5 



TSV3 GLOBAL AREAS 
PRBMEXP - PRINT ERROR 



MACRO M1113 06-FEB-84 18:04 
BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 061 



1776 








1777 








1778 








1779 








1780 








1781 








1782 








1785 








1784 








1785 


015202 






1786 


015202 






1787 


015206 


010005 




1788 


015210 


005037 


002312 


1789 


015214 


005004 




1790 


015216 


012701 


002314 


1791 


015222 


012702 


0C2460 


179? 


015226 


111100 




1793 


015230 


042700 


177400 


1794 


015234 


110037 


015550 


1795 


015240 


111203 




1796 


015242 


042703 


177400 


1797 


015246 


110337 


015552 


1798 


015252 






1799 


015262 


122122 




1800 


015264 


001431 




1801 


015266 


005237 


002312 


1802 


015272 


023727 


002312 000010 


1803 


015300 


101023 




1804 


015302 








015302 


010346 






015304 


013746 


015552 




015310 


013746 


015550 




015314 


010446 






015316 


012746 


015416 




015322 


012746 


000005 




015326 


010600 






015330 


104415 






J 5332 


0o2706 


000014 


1805 


015336 






1806 


015346 


000404 




1.807 


015350 






1008 


015350 






1809 


015360 






1810 


015360 


005204 




1811 


015362 


020405 




1812 


015364 


002001 




181* 


ni5?66 


000 7! 7 




1814 


015370 








015370 


013746 


002312 




015374 


012/46 


0L5'J03 




015400 


012746 


000002 




015404 


010600 






015406 


104415 






015410 


062706 


000006 


1815 


015414 


000207 




1816 








1817 


015416 


045 


116 045 



I ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
RO - NUMBER OF BYTES IN BUFFER 
IMPLICIT INPUTS: 



i 



EXPMSG 
RECMSG 



- EXPECTED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER 



20$ 



PRBYTEXPtt 

SAVREG 

MOV 

CLR 

CLR 

MOV 

MOV 

MOVB 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

XOR 

CMPB 

BEQ 

INC 

CMP 

BHI 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

FORu 

BR 



27$ 



30$ 
35$ 



50$ 



R0.R5 

PRMNO 

R4 

OEXPMSG, Rl 

ORECMSG ,R2 

CR1),R0 

*tC<377> t RO 

RO.PRBEXP 

(R2),R3 

*tC<377>,R3 

R3.PRBREC 

R0.R3 

CR1)*,CR2)* 

30$ 

PRMNO 

PRMNO, 08. 

30$ 



vv 



iZ'l 



OPRBMSG , R4 , PRBEXP , PRBREC , Rh 

R3.-CSP) 

PRBREC, -(SP) 

PRBEXP, -CSP") 

R4.-CSP) 

♦PRBMSG.-CSP) 

*5,-(SP) 

SP.RO 

C$PNTX 

014, SP 

35$ 



SAVE R1-R5 UNTIL NEXT RETURN 

SAVE NUMBER OF BYTES 

INIT ERROR COUNT 

NUMBER OF THE CURRENT BYTE 

GET EXPO BUFFER ADDRESS 

GET RECV BUFFER ADDRESS 

GET EXPO BYTE 

CLEAR UPPER BYTE 

SAVE FOR ERROR REPORT 

GET RECV BYTE 

CLEAR UPPER BYTE 

FOR ERROR REPORT 

XOR EXPD/RECV 

EXPD » RECV? 

BR IF YES 

UPDATE ERROR COUNT 

PRINTED 8? 

BR IF YES 



50$ 



FORCERROR 27$,N0TSSR 

INC R4 

CMP R4.R5 

BGE 50$ 

BR 20$ 

PRINTX OPRBTOT, PRMNO 

MOV PRMNO, -CSP1 

MOV *PRDTOT,-(SP) 

MOV 32.-CSP) 

MOV SP.RO 

TRAP C»PNTX 

ADD 06, SP 

RTS PC 



iSSO 

;S9D 
jQQO 

t NUMBER OF THE NEXT 

{DONE ALL YET? 

iBR IF YES 

{ 00 ANOTHER 

(PRINT TOTAL ERROi* COUNT 



jRFTURN 



PRBMSG: .ASCIZ ' *N*A BYTE VM<D2*A EXPD: *03*A RECV: *03*A XOR: *03 



I<5 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 062 



1818 
1819 
1820 
1821 
1822 
1825 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 

1835 
1836 



1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 

1851 
1852 



1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 



015503 



045 



116 



015550 000000 
015552 000000 



045 PRBTOT; .ASCIZ ' *N*A NUMBER OF BYTES IN ERROR - *D2' 
.EVEN 

PR8EXP: .WORD jEXPD 

PRBREC: .WORD tRECV 

.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
*■ 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



i - 



015554 

015554 

015554 004737 010020 

015560 

015560 

015560 104423 



EXPREC:: 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 

ENDflSG 



♦.PRINT THE DATA 



TRAP C*MSG 

.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



015562 

015562 

015562 004737 007670 

015566 

015566 

015566 104423 



BGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENOMSG 
L 10020: 

TRAP C*MSG 



} PRINT THE DATA 



.SBTTL RAMERR - PRINT RAM AND PACKET DATA 



{ * 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IK RAMSIZ-0 THEN DEFAULT TO 8, 



L5 



TSV5 - GLOBAL AREAS MACRO Mill? 
RAMERR PRINT RAM AND PACKET DATA 



06-FEB-84 18:04 



SEQ 063 



1869 
1870 
1871 
187^ 
1873 
1874 
1875 

1876 

1877 



1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 

1902 
1903 
1904 



1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 

1918 



015570 
0X5570 
015570 
015574 
015574 
015574 



004737 014056 



104423 



015576 
015576 
015576 
01560? 
015606 
015606 
015606 



004 737 
004737 



104423 



010352 
014056 



015610 
015610 



i 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



RAMERR: 
L10021: 



i 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENDMSG 



j PRINT RAM/PACKET DATA 



TRAP C*MSG 

.SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS i 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 
NUMBER OF BYTF.S IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8, 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG 

RAMTADD:: 

JSR 
JSR 
ENDMSG 

L 10022: 

TRAP 

.SBTTL 



RAMTADD 

PC.PRITADD 
PC.PRAMPKT 



jPRINT TEST ADDRESS 
jPRINT RAM/PACKET DATA 



CiMSG 
RAMEXP 



PRINT RAM EXPD/RECV DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTFD DATA 
CONTROLLER RAM ADDRESS 



RAMEXP: : 



BGNMSG RAMEXP 



M5 



TSV3 - GLOBAL AREAS 


MACRO M 
D/RF.CV D 


RAMEXP 


- PRINT 


RAM EXP 


1919 


015610 


042701 


177400 


1920 


015614 


042702 


177400 


1921 


015620 


004737 


010144 


1922 


015624 


004737 


010020 


1923 


015630 
015630 








015630 


104423 




1924 








1925 








1926 








1927 








1928 








1929 








1930 








1931 








1932 








1933 








1934 








1935 








1936 








1937 


015632 
015632 






1938 


015632 








015632 


012746 


015660 




015636 


012746 


000001 




015642 


010600 






015644 


104415 






015646 


062706 


000004 


1939 


015652 


004737 


010020 


1940 


015656 
015656 








015656 


104423 




1941 








1942 


015660 


045 


116 


1943 








1944 








1945 








1946 








194 








1948 








1949 








1950 








1951 








1952 








1953 








1954 








1955 








1956 








1957 


015760 
015760 






1958 


015760 


010246 




1959 


015762 


042702 


177400 


I960 


015766 








015766 


010246 






015770 


012746 


016020 




015774 


012746 


000002 




016000 


010600 





8JM 



3 06-FEB-84 18:04 



BIC 


4tC<377>,Rl 


BIC 


*tC<377>,R2 


JSR 


PC.PRIRAM 


JSR 


PC.PRIXOR 


ENDMSG 




L 10023: 





SEQ 064 



{SAVE EXPO RAM DATA BYTE 
j SAVE EXPO RAM DATA BYTE 
j PRINT THE RAM ADDRESS 
I PRINT THE DATA 



TRAP 



C*MSG 



.SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 



{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A,B HEADER MESSAGE 



INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



TIMEXP: 



BGNMSG TIMEXP 
PRINTX OTIMSGO 



L 10024: 



MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENDMSG 

TRAP 



OTIMSGO.-CSP) 
ftl,-CSP) 

SP.RO 
CIPNTX 
04, SP 
PC.PRIXOR 



{PRINT HEADER 



{PRINT THE DATA 



045 



TIMSGO: .ASCIZ 
.EVEN 

, SBTTL BADSSR 



CtMSG 

«*N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN BIT 2' 
PRINT TSSR ERRORS ON DATA TRANSFERS 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN C8 BITS) 



BGNMSG BADSSR 



BADSSR: : 




MOV 


R2.-CSP) 


BIC 


0177400, R2 


PRINTS 


0XFERASC.R2 


MOV 


R2, -CSP) 


MOV 


OXFERASC, ~(SP) 


MOV 


02. (SP) 


MOV 


SP»R0 



iSAVE DATA TRANSFERRED 
{GET JUST ONE BYTE 



TSV5 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



N5 



SEQ 065 



1961 
1962 
1963 



1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 

199S» 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 



016002 
016004 
016010 
016012 
016016 
016016 
016016 
016020 



016054 
016054 
016060 
016066 
016072 
0x6076 
016100 
016104 
016110 
016112 
016114 
016116 
016120 
016122 



104414 

062706 000006 

012602 

004737 006020 



104423 
045 



116 



045 



TRAP 


CiPNTB 


ADO 


06, SP 


MOV 


CSP)f ,R2 


JSR 


PC.PRITSSR 


ENDMSG 




L10025: 




TRAP 


C*MSG 


XFERASC: 


.ASCIZ '* 



{RESTORE R2 

;DEC0DE TSSR CONTENTS 



'*N*A Doto Transferred - *03 
.SBTTL GLOBAL SUBROUTINES SECTION 



♦ ♦ 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE 1SSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 



R5 



OUTPUTS : 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



? 



CALLING SEQUENCE: 



i - 



SOFINIT 



012765 000000 

004737 016330 

016500 000002 
010004 



000002 



042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 



176277 
002200 



5$: 
10$ 



MOV 
JSR 
BCS 
ERRDF 



SAVREG 

MOV 

JSR 

MOV 

MOV 

BIC 

BIS 

CMP 

BEQ 

CLC 

6R 

SEC 

RTS 

.SBTTL 



^ADDRESS, R5 
PC, SOFINIT 
CONTINUE 



{REPORT FATAL ERROR 



I SAVE THE REGISTERS 
40,TSSRCR5) j DO THE INIT. 
PC.WAITF j WAIT FOR SSR 
TSSR(R5),R0 {GET THE TSSR REGISTER 
R0,R4 j TSSR CONTENTS 

OtC<HlADDR!0FL>,R4 

0SSRIN3A.R4 {R4 HAS EXPECTED CONTENTS 
R4.R0 {ONLY EXPECTED BITS SET ? 

5$ {BRANCH IF OKAY 

{CLEAR THE CARRY FOR ERROR 
10$ {GO TO EXIT 

{SET THE CARHY BIT 
PC jRETURN TO CALLER 

CHKAMB - CHECK TSSR FOR AMBIGUITY 



B6 



TSV3 - GLOBAL AREAS 
CHKAMB CHECK TSSR 

2014 
2015 
2016 
201? 
2018 
2019 



2021 
2022 
2023 
2024 
2025 
2026 
2027 
2026 
2029 
2030 
2031 
2032 

2033 016124 

2034 016124 

2035 016130 

2036 0X6132 

2037 016136 

2038 016140 

2039 016144 

2040 016146 

2041 016150 

2042 016154 

2043 016156 

2044 016162 

2045 016164 

2046 016170 

2047 016174 

2048 016176 

2049 016200 

2050 016204 

2051 016206 

2052 016212 

2053 016214 

2054 016216 

2055 016220 

2056 016222 
2057 

2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
206? 
2068 
2069 
2070 016224 



MACRO M1113 
FOR AMBIGUITY 



06-FEB-84 13 {04 



010004 

032700 

001004 

032700 

001023 

000424 

032700 

001011 

032700 

001414 

0427C< 

0204P »' 

001CO - 
000410 
032700 
001405 
32700 
001002 
000241 
000401 
000261 
000207 



000200 
000001 



000 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



SEQ 066 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT* 



OUTPUT; 



RO 

RO 
CARRY 



CONTENTS OF TSSR 



CONTENTS OF TSSR 

SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAM8: 



5* 



10$ 



401 

451 

501 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 

BIT 

BEQ 

BIT 

BNE 

CLC 

BR 

SEC 

RTS 

.SBTTL 



R0.R4 

♦SC.RO 
51 

OtC<NeA!UFL!SSR 

40$ 

45$ 

♦SSR.RO 

10$ 

♦BIT5.R0 

40$ 

♦1CTERCLS.R4 

R4.#16 

40$ 

45$ 

♦6IT5.R0 

45$ 

♦BIT2JBIT1.R0 

45$ 

50$ 

PC 

ENAINT.OSBINT - 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
JHIAD0R>.R0 jANY OTHER BITS SET ? 

^IST BE AN ERROR 
RETURN WITH SUCCESS 
IS REAOY BIT SET ? 
BRANCH IF REAOY BIT IS SET. 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR. IF TSSR IS OK 
AMBIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
RETURN TO CALLER 
ENABLE/DISABLE INTERRUPTS 



DEFAULT DISPLAY INTERRUPT HANDLERS. 

IF DISPLAY TIME-OUT, REPORT DEV FATAL. ANO ABORT PASS, 

OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 



l BIT DEFINITIONS FOR "INTMASK" ANO "INTFLAG" BYTESj 



I0KCKIN-BIT7 
IOKGTP-BITO 



i DON'T CHECK FOR BAD INTERRUPTS -• TEST WILL* 
j EXPECT "STOP" INTERRUPT. 



.INTERRUPT MASK SAYS EXPECTING INTERRUPTS 

IN T MASK i .BYTE 



^!nT.8» ^BL^M^i? 



C6 



:RR 



$ f gEB-84 



18 5 04 



SEQ 067 



2071 






2072 016225 


000 




2073 






2074 






2075 016226 


000000 




20 76 






2077 016250 


000000 




20 78 






2079 






2080 016232 


01004 1> 




2081 016234 


013700 


002202 


2082 016240 


012720 


016276 


2083 016244 


012720 


000340 


2084 016250 


012600 




2085 016252 


011646 




2086 016254 


012766 


000000 000002 


2087 016262 


000002 




2088 






2089 






2090 016264 


011646 




2091 016266 


012766 


000340 000002 


2092 016274 


000002 




2093 






2094 






2095 016276 






016276 






2096 016276 


012737 


000001 002216 


2097 016304 


105037 


016225 


2098 016310 


132737 


000001 016224 


2099 0\6316 


001003 




2100 016320 


152737 


000001 016225 


2101 






2102 






2103 016326 






2104 016326 






016326 






016326 


000002 




2105 






2106 






2107 






2108 






2109 






2110 






2111 






2112 






2113 






2114 






2115 






2116 






2117 






2118 






2119 016330 


000401 




2120 016332 






016332 


104422 




2121 016334 


012746 


011000 


2122 016340 


016500 


000002 


2123 016344 


105700 





^INTERRUPT FLAG • 
INTFLAG: .BYTE 

I SAVED INTERRUPT VECTOR} 
INTVEC: .WORD 
I SAVE CPU PC 
INTCPC: .WORD 



SAYS WE GOT ONE (IF POSITIVE) 



» SUBROUTINE TO ENABLE INTERRUPTS i 
ENAINTj MOV RO,-(SP) jSAVE RO 

IVF.C.RO 

CINTR,(RO)f 

«PRI07,(R0)* 

CSP)*.R0 

(SP).-(SP) 

00.2CSP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



iGET POINTER TO VECTORS 
jSET UP INTERRUPT VECTOR 

i RE STORE RO 

jSET CPU TO LEVEL 



(SUBROUTINE TO OISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 



DSBINT: MOV 
MOV 



INTR: 



RTI 
.SBTTL 

BGNSRV 

MOV 

CLRB 

BITB 

BNE 

BISB 



(SP),-(SP) 
♦PRI07.2CSP) 

INTR - INTERRUPT HANDLERS 

INTR iDEFINE INTERRUPT ENTRY 

•l.INTRECV jSET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG jCLEAR FLAG TO SAY WE GOT INTERRUPT 

♦IOKSTP.INTMASK tEXPECTING STOP INTERRUPT? 

II jBR IF YES 

JIOKSTP, INTFLAG jNO. SET THE ERROR FLAG. 



jSAVE REGISTERS, MSG BUFFER, ETC. 
LI: 

ENDSRV 
L 10026 i 

RTI 

.SBTTL WAITF • WAIT FOR SUBSYSTEM READY 

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS; 

ADDRESS OF FIRST DEVICE REGISTER 



R5 
OUTPUTS! 



RO 
CARRY 



WAITF} x BR 

BREAK 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



lit 
2ti 



TRAP 
MOV 
MOV 
TST8 



II 

CIBRK 

#11000, -CSP) 
TSSR(R5),R0 
RO 



I NOP WHEN SUPER FIXED 

I 00 A SUPVSR BREAK FIRST. 

l25 APRIL -83 REV B 1100 MSEC TIMER 
iREAD THE TSSR REGISTER 
I TEST FOR READY BIT SET 



Jft?F- ^BM^SUBSY^Mi} 



3 06-FEB-84 18;04 



D6 



SEQ 068 



2124 






212? 016346 


100420 




2126 016350 






016350 


012727 


000001 


016354 


000000 




016356 


013727 


002116 


016362 


000000 




016364 


005367 


177772 


016370 


001375 




016372 


005367 


177756 


016376 


001367 




2127 016400 


005316 




2128 016402 


001356 




2129 016404 


000241 




2130 016406 


000401 




2131 016410 


000261 




2132 016412 


005326 




2133 016414 


000207 




2134 






2135 






2136 






2137 






2138 






2139 






2140 






2141 






2142 






2143 






2144 






2145 






2146 






2147 






2148 






2149 






2150 






2151 






2152 






2153 016416 






2154 016416 


004737 


016330 


2155 016422 


103014 




2156 016424 


004737 


016124 


2157 016430 


103006 




2158 016432 


032700 


100000 


2159 016436 


001405 




2160 016440 


032700 


074000 


2161 016444 


001402 




2162 016446 


000241 




2163 016450 


000401 




2164 016452 


000261 




?16S 016454 


000207 




2166 






2167 






2168 






2169 






2170 






2171 






2172 







3*5 

4$j 



BMI 


3$ 


DELAY 


1 


MOV 


01, (PC)* 


.WORD 





MOV 


LIDLY.CPO* 


.WORD 





DEC 


-6CPC) 


BNE 


.-4 


DEC 


-22CPC) 


BNE 


. -20 


DEC 


(SP) 


BNE 


2$ 


CLC 




BR 


4$ 


SEC 




DEC 


(SP). 


RT5 


PC 


.SBTTL 


CHKTSSR - CHECK 



I EXIT ON STOP FLAG. 
1 WAIT 100 USEC 



: REDUCE DELAY COUNT 

jRETRY UNTIL TIMER EXPIRES 

I C ■ 0, CONTROLLER STILL RUNNING... 

I... OR HUNG-UP AFTER 300 MSEC. 

I C ■ 1. CONTROLLER IS STOPPED. 

jrjESTORE STACK WITHOUT CHANGING CARRY BIT 

fSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT ; 



R5 



ADDRESS OF CSR REGISTERS 



OUTPUT? 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMQIGUOUS, OR SC SET 



CHKTSSR 


> 








JSR 




PC.WAITF (WAIT FOR READY 




BCC 




20$ j BRANCH IF TIME OUT 




JSR 




PC.CHKAMB jTSSR AMBIGOUS? 




BCC 




10$ iBR IF YES 




BIT 




OSC.RO jSPECIAL CONDITION SET? 




BEQ 




15$ iBR IF NO 




BIT 




*<SCE!BIE!RMR»NXM> # RO |ANY ERROR BITS SET? 




BEQ 




15$ jBR IF NO 


10$: 


CLC 




jSET FAILURE 




BR 




20$ i 


151: 


SEC 




jSET SUCCESS 


20$: 


RTS 




PC jRETURN TO CALLER 




.SBTTL 


XNXM - CHECK FOR NONEXISTENT MEMORY 


j ROUTINE TO 


TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 


I ON RETURN, 


IF 


"C" - 1, (Rl) - NEXM ADDRESS, 


; 






"C" -0. ALL ADDRESSES OK. 


j CALL J 


MOV 


ADR1.R1 



TSV3 - GLOBAL AREAS MACRO Ml 113 06-FEB-84 18:04 

" MEMf~ 



XNXM 



CHECK FOR NONEXISTENT MEMORY 



E6 



SEQ 069 



2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 



2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 



016456 
016464 
016472 
016474 

016476 
016500 
016502 
016506 

016510 
016512 
016516 
016520 
016520 
016524 
016526 
016530 
016532 
016534 



016536 
016536 
016542 
016544 
016550 
016552 
016556 
016560 
016562 
016564 
016566 



012737 016510 000004 
012737 000200 000006 
005003 
005711 

020102 

001407 

062701 000002 

000772 

005103 

012716 016520 

000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



005737 002162 

001006 

005737 002176 

100403 

005337 002210 

001002 

000241 

000401 

000261 

000207 



i 


MOV A0R2.R2 


} 


J5R PC, 


NXM 


i 


RETURN 


JT 


XNXM j 


MOV 


021,804 




MOV 


0PRI04.Q06 




CLR 


R3 


1$: 


TST 


CR1) 




CMP 


R1,R2 




BEQ 


3$ 




ADD 


02.R1 




BR 


It 


2$; 


COM 


R3 




MOV 


03*,CSP) 




RTI 




3*5 


CLRVEC 


04 




MOV 


04, RO 




TRAP 


CICVEC 




TST 


R3 




BEQ 


.♦4 




SEC 






RTS 


PC 




,SBTTL 


TSTLOOP - 



j TEST "C" AND PROCEED. 

j SET BUSERR VECTOR. 



iFLAG. 

I TEST THE ADDRESSCES). 

j IF ANY TRAP, CONTINUE AT 2* 

I OTHERWISE, CONTINUE HERE. 

;BR IF FINISHED (NO NEXM'S). 

i SET NEXT ADDRESS.. . 

t . . .AND CONTINUE. 

jGOT ONE, SET FLAG. .. 

I... AND DISMISS INTERRUPT... 
I... AND GIVE BACK THE VECTOR 



j DID WE CATCH ONE ?? 

jNO. "C" - 0. SKIP NEXT. 

jYES, "C" - 1. (Rl) - NEXM ADDR. 



CHECK ITERATION COUNT 

j SUBROUTINE TO EXECUTE TEST ITERATIONS. 

i EXIT WITH "C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 

j LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO. 

I CALL: LOOPTO ARG 



I ITERATIONS INHIBITED? 

j YES. 

t NO. 

; LOOPS DISALLOWED IN QUICK PASS. 

I BUMP LOOP COUNTER, 

{LOOP DISALLOWED, OR DONE. 

j LOOP ENABLED, 



.SBTTL TSTSETUP - PRINT TEST NAME ANO INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG, 

INCREMENT "TESTK** TO INDICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE, 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



TSTLOOP;; 




TST 


NOITS 


BNE 


1* 


TST 


QVP 


BMI 


1* 


DEC 


LOOPCNT 


BNE 


2% 


1*; CLC 




BR 


Si 


2$: SEC 




3i: RTS 


PC 



INPUT; 



RO 



POINTER TO TEST ID ASCIZ STRING 



F6 



TSV3 - GLOBAL AREAS 
TSYSETUP 

2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 



MACRO M1113 06-FEB-84 18:04 
PRINT TEST NAME AND INIT ERROR COUNTS 



SEQ 070 



2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



2256 
2257 
2258 



2259 
2260 



2261 

2262 
2263 
2264 

2265 

2266 
2267 
2268 



016570 
016570 
016572 
016576 
016602 
016606 
016612 
016616 
016620 
016624 
016626 
016630 
016636 
016636 
016640 
016642 
016644 
016646 
016650 
016656 
016656 
016660 
016662 
016664 
016666 
016674 
016674 
016700 
016702 
016702 
016704 

016706 
016706 
016710 
016714 
016716 
016720 
016720 
016722 
016726 
016732 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
100010 
052760 

104455 
000001 
003734 
005732 
000407 
052760 

104455 
000002 
004331 
000000 
012737 

013700 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 



i OUTPUT: 



R5 



ADDRESS OF FIRST DEVICE REGISTER 



! IMPLICIT OUTPUTS: 

• TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

{SIDE EFFECTS: 



\ 



i - 



INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



003146 
017036 
005766 
016224 
002174 

003106 



160000 003170 



TSTSETUPtt 
MOV 



16vX>01 003170 3$ 



177777 003104 
002174 



2$ 



4$: 



001000 



016764 
000002 



CLR 

CLR 

CLR 

CLRB 

MOV 

ASL 

TST 

BEQ 

BPL 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 



RO.-(SP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NOOEV 

41 

3$ 

0160000, ERTABLC 

l.NXR.NXRERR 

C$ERDF 

1 

NXR 

NXRERR 

21 

0160001. ERTABLC 

2.N0INIT 

CiERDF 

2 

MOINIT 



O-l.DUFLG 

UNITN 

UNITN.RO 

CIDODU 

CIDCLN 
5$ 

RO 

CtRFLA 

OPNT.RO 

1$ 

(SP),RO 

OTNAM.RO 

RO, -CSP) 

OTNAM, -CSP) 

02, -CSP) 

SP,RO 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT'* FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NW1BER, 
... ANO MAKE IT A WOftD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) ; FLAG ERROR IN THE ERROR TABLE 
I NO DEVICE HERE -- PRINT IT 



RO) ; FLAG ERROR IN THE ERROR TABLE 
j DEVICE NOT IDLE 



, DROP THE UNIT 



l ABORT THE PASS 



I GET THE OPERATOR FLAGS. 

I PRINT THE TES* NUMBERS? 

j BR IF NO 

tGET THE ID MESSAGE 

iDISPLAY THE TEST ID 



TSV3 - GLOBAL AREAS MACRO M1113 Q6-FEB-84 18:04 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



G6 



SEQ 071 



2269 
2270 



2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 

2282 
2283 
2284 



016734 
016736 
016742 
016746 
016746 
016752 
016754 
016756 
016762 
016764 



2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 



017000 
017000 
017002 
017006 
017010 
017010 
017014 
017020 
017024 
017026 
017030 
017034 

017036 
017040 
017057 



017124 
017130 
017132 
017136 
017140 
017144 
017146 
017152 
017154 
017156 
017160 

017162 
017164 
017170 
017172 
017176 
017202 
017206 



104417 

062706 000006 

005237 002206 

013700 002204 

104441 

005726 

013705 002200 

000207 

045 123 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

OOOOOO 
045 
105 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 



020000 



017036 
017040 
000002 



000006 



101 
122 



017036 
002174 
003170 
007777 



002174 

003170 
1 70000 
002166 



1$; 

51: 

045 TNAM: 



TRAP 

ADD 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 

,SBTTL 



CiPNTF 

06, SP 

TSTCNT 

IPRI 

IPRI.RO 

CiSPRI 

CSP)* 

CSRADDR.R5 

PC 

'#S*T*A Test 



{ BUMP TEST COUNTER. 
jPRIORITY THAT OF DEVICE 



j FIX UP THE STACK 

l ADDRESS OF TSV REGISTERS ON UNIBUS 



TSTENO - PRINT ERRORS RECEIVED 



i AT END OF EACH TEST, PRINT THE NUMBER OF ERR0R5 RECEIVED 
j IF NORMAL ERROR REPORTING IS DISABLED CFLAsIER). 

TSTENDj 



j BR IF "IER" NOT SET 
I PRINT ERROR COUNT. 



1$ 



ERRK; 
040 ESUM: .ASCIZ 
122 EMAXDU: .ASCIZ 
.EVEN 



RFLAGS 


RO 


TRAP 


CiRFLA 


BIT 


ROSIER 


BEQ 


1$ 


PRINTF 


OESUM,ERRK 


MOV 


ERRK.-(SP) 


MOV 


OESUM,-(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


OPNTF 


AOO 


06. SP 


RTS 


PC 



t LOCAL ERROR COUNT. 
/*A *D*A ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 

ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE PO 

GET UNIT NUMBER, 

... ANO MAKE IT A UORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRT 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF >ES 



INCERK: 


INC 


ERRK r 




MOV 


RO.-(SP) j 




MOV 


UNITN.RO i 




ASL 


RO { 




ADD 


OERTABL.RO j 




INC 


(RO) j 




BIT 


07777, (RO) i 




BNE 


It I 




DEC 


CRO) j 


15: 


MOV 


(SP)*,RO i 




RTS 


PC \ 


CKEMAX: 


MOV 


RO.-CSP) ( 




MOV 


UNITN.RO i 




ASL 


RO j 




MOV 


ERTABLCRO),RO i 




BIC 


01 70000, RO j 




CMP 


RO,GERRMAX i 




BHIS 


1$ i 



-16 



TSV3 - 
INCEP.K 

2315 
2316 

2317 

2318 
2319 
2320 
2321 



2322 



2323 

2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 

2333 
2334 
2335 
2336 



2338 

2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 



GLOBAL AREAS 
- INCREMENT 



MAC 
LOCAL l 



!rror ho 



3 06-FEB-84 

UNT 



017210 
017216 
017220 
017220 
017222 
017226 
017230 
017236 
017236 
017240 
017242 
017244 
017246 
017246 
017252 
017254 
017254 
017256 
017260 



017262 
017264 
017274 
017274 
017276 
017302 
017304 
017306 
017314 
017314 
017320 
017322 
017322 
017324 
017326 



017330 
017330 
017334 



017336 
017342 
017344 
017352 



023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
017057 
000000 

013700 
104451 

104444 
012600 
000207 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



004 737 
000207 



005737 
001403 
012737 
000207 



017036 002164 

000040 

177777 003104 



002174 



2$ 



18 s 04 



CMP 

BLO 

RFLAGS 

TRAP 

BIT 

BNE 

MOV 

ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

DOOU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 

.SBTTL 



SEO 072 



IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO -- DROP THE UNIT 



ERRK.LERRMAX j 

21 { 

RO i 

C$RFLA 

OIDU.RO , 

2$ j 

tf-l.DUFLG j 

4.EMAXDU 

CIERDF 

4 

EMAXDU 



UNITN 

UNITN,R0 

C*DODU 



CSDCLN 

CSPV.RO i 

PC , 

CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



NtSrORE RO 
RETURN TO CALLER 



i CHECK IF UNIT SHOULD BE DROPPED 



000040 

177777 003104 
002174 



CKDROP j MOV R0 v -CSP) 

FORCERROR 1$,N0TSSR 
RFLAGS RO 

CIRFLA 

OIDU.RO 

1$ 

(SP).RO 

O-l.DUFLG 

UNITN 

UNITN, RO 

C$DODU 



1$ 



TRAP 

BIT 

BNE 

MOV 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 



CiDCLN 

CSP)*,RO 

PC 



{ABORT THE PASS 



, SBTTL CONFIG 



DETERMINE CONFIGURATION OF SYSTEM 



016054 



l SUBROUTINE - DETERMINE CONFIGURATION OF TSV05 SYSTEM. 
CONFIG t 



JSR PC.SOFINIT 

RTS PC 

.SBTTL !< TON, K TOFF 

j SUBROUTINE - ENABLE MEM MGT, 



003124 

000001 177572 



KTONj 
1$: 



TST 
BEQ 
MOV 
RTS 



KTFLG 
1$ 

01,SR0 
PC 



- ENABLE/DISABLE MEMORY MANAGEMENT 



t GOT KT? 

I NO. 

} YES. ENABLE KTU. 



16 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 
KTON.KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 



SEQ 073 



2360 

2361 

2362 

2363 

2364 

2365 

2366 

236? 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 



017354 
017360 
017362 
017364 
017366 
017374 



017376 
017376 
017402 
017406 
017410 



017442 
017446 
017452 
017454 
017460 
017464 
017470 
017472 
017474 
017476 
017500 



005737 
001405 
000240 
000240 
012737 
000207 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



003124 



000000 177572 



i SUBROUTINE - DISABLE MEM MGT. 



KTOFTj 



1$: 



TST 


KTFLG 




} GOT KT11? 


BEQ 


1$ 




» NO. 


NOP 








NOP 








MOV 


♦O.SRO 




j DISABLE KT. 


RTS 


PC 






.SBTTL 


SETMAP 


- SETUP 


PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
Rl 



OUTPUTS: 



SETMAP: 



003124 



000177 
003124 

172354 
160000 
140000 



lOt 
15$ 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

. ENDR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 

.SBTTL 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

♦177, Rl 

Rl, KTFLG 
10* 

R1.B4KIPAR6 
♦160000, R2 
♦140000, R2 
R2,R0 

15$ 

PC 



{SAVE R1-R4 UNTIL NEXT RETURN 

{SYSTEM HAVE ABOVE 28K? 

;BR IF NO 

j SAVE LOW ORDER BITS 

; CONVERT WORD ADDRESS TO 32W BLOCKS 
jMAKE IT DOUBLE PRECISION 

; ALINE FOR LOWER 4K BOlMOARY 
{HIGHER THAN EXISTING MEMORr? 
»BR IF YES 

{SETUP MAPPING REGISTER PAR6 
{SETUP DISPLACEMENT IN PAGE 
{ADD IN PAR6 BIAS 
{RETURN IN RO 
{SET SUCCESS 

{SET FAILURE 
; RE TURN 



FXLLMEM - FILL MEMORY WITH BACKGROUND PATTERN 



FILL MEMORY WITH A BACKGROUND PATTERN 



} INPUTS: 



RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K. 



J6 



TSV3 • GLOBAL AREAS 
FILLMEM - FILL MEMORY 



2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
243^ 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
244 7 
2448 
2449 



017502 
017502 
017506 
017512 
017514 
017520 
017524 
017526 
017530 
017532 
017536 
017540 
017544 
017546 



2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
24t>7 
2468 
2469 
2470 
24/1 
24 72 
24 73 



017616 
017622 
017624 
017630 
017632 
017636 
017644 
017652 
017654 
017660 
017662 
017666 
017672 
017676 
017700 
017 IOA 
017706 
017714 
017716 
017720 
017726 
017732 
017736 



MAC'^O M1113 06-FEB-84 18:04 
WITH BACKGROUND PATTERN 



OUTPUTS: 

NONE 



SEQ 074 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001477 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
023737 
001427 
005737 
001407 
013704 
042704 
022704 
001415 
005737 
001410 
023727 
103001 
000403 
012737 
000137 
004737 
000207 



017354 

003116 
003120 



003124 
017336 
003144 



017376 

160000 

020000 
000200 
172354 

003136 

177572 
177761 
000016 

003140 

172354 



000020 
017622 
03 7354 



FILLMEM: 



10$: 



30 



172354 
003124 



007600 



172516 



35$ 



40$ 
45$ 
50$ 
55$ 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

8EQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENDR 

JSR 

MOV 

CMP 

BLO 

SUB 

AOD 

CMP 

BEQ 

TST 

BEQ 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

CMP 

BHIS 

BR 

MOV 

JMP 

JSR 

RTS 

.SBTTL 



PC.KTOFF 

R0.R3 

FREE.R1 

FRESIZ,R2 

R3.CR1)* 

R2 

10$ 

KTFLG 
55$ 

PC.KTON 
RO 

PST32W,R1 
6 

Rl 
RO 

PC.SETMAP 

R3,(R0)» 

RO, 0160000 

30$ 

« 20000, RO 

«200,S*KIPAR6 

6WKIPAR6, KTFLG 

50$ 

T23A 

35$ 

SR0.R4 

#177761, R4 

#16, R4 

50$ 

T23B 

45$ 

a#KIPAR6, 07600 

40$ 

45$ 

O20.SR3 

30$ 

PC.KTOFF 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO, GET OUT, 

YES, ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS CIN 32W BLOCKS) 

CI EAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28!< ADDRESS 
ENO OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
F_N0 OF MEMORY? 
BR IF YES 
11/23A? 
NO KEEP GOING 
GET SRO CONTENTS 
CLEAR ALL BUT PAGE NUMBER 
SEE IF PAGE 7 
EXIT IF THERE 
11/23B? 
NO KEEP GOING 
REACHED 18 BITS? 
YES 

NO KEEP GOING 
SET 2? BIT RELOCATION 
KEEP GOING ON ETC. 
DISABLE KT. 



CMPMEM 



COMPARE MEMORY TO BACKGROUND PATTERN 



COMPARE MEMORY WITH A BACKGROUND PATTERN 



INPUTS; 



RO - BACKGROUND PATTERN 
FREE - FIRST LOCATION 
KTFLG - SET TO HIGHEST 



AVAILABLE '■' C DIAGNOSTIC 
MEMORY LOCATION IF > 28K, 



TSV3 - GLOBAL AREAS MACRO Ml Hi 06 -FEB -64 18:04 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



l<6 



SEQ 075 



2474 








j OUTPUTS: 




24 75 








• 






24 7b 








{ 


CARRY 


- SET IF NO ERROR 


24 77 








} 


CARRY 


- CLR IF ERROR 


2476 








» 






24 79 








j IMPLICIT OUTPUTS: 


2480 








j 






2481 








i 


ERRHI 


- ERROR HIGH AODR 


2482 








» 


ERRLO 


- ERROR LOW ADDRE 


2485 








i 


EXPO 


- EXPECTED DATA 


2484 








• 


RECV 


- RECEIVED DATA 


2485 








• 






2486 


017740 






CMPMEM: 






2487 


017740 








SAVREG 




2468 


017744 


010003 






MOV 


R0,R3 j 


2489 


017746 


004737 


017354 




JSR 


PC.KfOFF { 


2490 


017752 


013701 


003116 




MOV 


FREE.R1 ; 


2491 


017756 


013702 


003120 




MOV 


FRESIZ.R2 i 


2492 


017762 


020311 




10$: 


CMP 


R3.CR1) i 


2493 


017764 


001411 






BEQ 


15$ ; 


2494 


017766 


010137 


002232 




MOV 


Rl, ERRLO j 


2495 


017772 


005037 


002230 




CLR 


ERRHI i 


2496 


017776 


010337 


002224 




MOV 


R3.EXPD i 


2497 


020002 


011137 


002226 




MOV 


CRD, RECV { 


2498 


020006 


000474 






BR 


50$ ; 


2499 


020010 


005721 




15$: 


TST 


(Rl)> j 


2500 


020012 


005302 






DEC 


R2 ; 


2501 


020014 


003362 






BGT 


10$ } 


2502 


020016 


005737 


003124 




TST 


KTFLG j 


2503 


020022 


0014 72 






BEQ 


55$ j 


25C4 


020024 


004737 


017336 




JSR 


PC.KTON i 


2505 


020030 


005000 






CLR 


RO j 


2506 


020032 


013701 


003144 




MOV 


PST32W.R1 i 


2507 




000006 






.REPT 


6 


2506 










ROL 


Rl i 


2509 










ROL 


RO j 


2510 










.ENOR 




2511 


020066 


042701 


000177 




BIC 


•177, Rl , 


2512 


020072 


010046 






MOV 


RO.-CSP) j 


2513 


020074 


010146 






MOV 


Rl.-CSP) i 


2514 


020076 


004737 


017376 




JSR 


PC.SETMAP , 


2515 


020102 


010004 






MOV 


R0.R4 | 


2516 


020104 


012601 






MOV 


CSP)».R1 i 


2517 


020106 


012600 






MOV 


(SP)>,RO j 


2518 


020110 


020314 




30$: 


CMP 


R3 ( (R4) j 


2519 


020112 


001411 






BEQ 


32$ i 


2520 


020114 


010037 


002230 




MOV 


RO, ERRHI j 


2521 


020120 


010137 


002232 




MOV 


Rl, ERRLO { 


2522 


020124 


010337 


002224 




MOV 


R3.EXPD i 


2523 


020130 


011437 


002226 




MOV 


(R4),RECV j 


2524 


020134 


000421 






BR 


50$ i 


2525 


020136 


062701 


000002 


32$: 


ADD 


02, Rl i 


2526 


020142 


005500 






ADC 


RO j 


2527 


020144 


062704 


000002 




ADD 


02. R4 i 


2528 


020150 


020427 


160000 




CMP 


R4, 0160000 j 


2529 


020154 


103755 






BLO 


30$ i 


2530 


020156 


162704 


020000 




SUB 


020000 ,R4 ; 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

FREE SPACE LOCATION EQUAL TO EXPDV 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPIMG REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 

SAVE LOW ORDER IN ERROR 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAFPING BEGIN 



L6 



TSV3 - GLOBAL AREAS MACRO M1113 Q6*FFR-A4 18:04 
CMPMEM COMPARE MEMORY TO BACKGROUND PATTERN 



2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
21 /8 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 



020162 
020170 
020176 
020200 
020204 
020206 
020210 
020214 
020216 



020220 
020220 
020222 
020224 
020226 
020230 
020232 
020236 
020240 
020242 
020244 
020246 
020250 
020252 



062737 000200 172354 

023737 172354 003124 

101744 

004737 017354 

000241 

000403 

004737 017354 

000261 

000207 



010446 

010346 

010246 

010146 

010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

000207 





ADO 


0200.S0KIPAR6 




CMP 


Q*KIPAR6,KTFLG 




BLOS 


30$ 


50$: 


JSR 

CLC 


PC.KTOFF 




BR 


60$ 


55$: 


JSR 
SEC 


PC.KTOFF 


60$: 


RTS 


PC 



SEQ 076 



I POINT TO NEXT 4K BLOCK >28K 

i END OF MEMORY? 

} BR IF NO 

;TURN OFF MEMORY MAPPING 

I SET FAILURE 

I TURN OFF MEMORY MAPPING 
{SET SUCCESS 



.SBTTL REGSAV - SAVE R1-R5 ON STACK 



ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 



J 



{CALLING SEQUENCE: 



JSR 



R5, REGSAV 



THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



REGSAV: 



MOV 


R4.-CSP) 


MOV 


W.-(SP) 


MOV 


R2.-CSP) 


MOV 


Rl.-CSP) 


MOV 


R5.-CSP) 


MOV 


10.(SP),R5 


JSR 


PC.SCSP)* 


MOV 


(SP)*,R1 


MOV 


(SP)»,R2 


MOV 


<SP)».R3 


MOV 


(SP)»,R4 


MOV 


CSP)».R5 


RTS 


PC 


.SBTTL 


GETPAT - 



GET 8 BIT PATTERN FROM OPERATOR 



I * 



{ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 

! INPUTS: 

! NONE , 

\ OUTPUTS; 



{ RO 

J 

{CALLING SEQUENCE! 



OCTAL NUMBER FROM THE OPERATOR 



TSV3 - GLOBAL AREAS MACRO M1113 Q6-FEB-84 18504 
GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



M6 



SEQ 077 



2588 






2589 






2590 






2591 






2592 






2593 


020254 




2594 


020254 




2595 


020260 






020260 


104443 




020262 


000406 




020264 


020310 




020266 


000022 




020270 


020312 




020272 


000377 




020274 


000000 




020276 


000377 




C20300 




2596 


020300 






020300 


103367 


2597 


020302 


013700 020310 


2598 


020306 


000207 


2599 






2600 






2601 






2602 






2603 






2604 


020310 


000000 


2605 


020312 


105 116 


2606 






2607 






2608 






2609 






2610 






2611 






2612 






2613 






2614 






2615 






2616 






2617 






2618 






2619 






2620 






2621 






2622 






2623 






2624 


020336 




2625 


020336 




2626 


020342 


010002 


2627 


020344 


010203 


2628 


020346 


005713 


2629 


020350 


001412 


2630 


020352 






020352 


012346 




020354 


012746 020522 




020360 


012746 000002 




020364 


010600 



JSR 



PC, GETPAT 



GETPAT: 
1$: 



10000$ 



SAVREG 




GMANID 


DATASC. PA 


TRAP 


CIGMAN 


BR 


10000 i 


.WORD 


PATDAT 


.WORD 


TiCODE 


.WORD 


DATASC 


.WORD 


377 


.WORD 


T*LOLIM 


.WORD 


T^HILIM 


BNCOMPLETE 1 


BCC 


1$ 


MOV 


PATDAT ,R0 


RTS 


PC 



j SAVE THE GENERAL 



REGISTERS 



{RETRY IF ERROR 

{DATA PATTERN FROM OPERATOR 
I RETURN TO CALLER 



{LOCAL DATA AREA 



PATDAT; .WORD {TEMPORARY STORAGE FOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 

.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



{ROUTINE TO ISSUE A MENU AND GET 
{THE OPERATOR'S RESPONSE. 



{INPUTS: 

i 

I 

! OUTPUTS: 
;' RO 



RO 

Rl 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL: 



1$ 
2$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 



R0.R2 
R2.R3 
(R3) 
31 

0SELASC.IR3)* 
(R3)», -CSP) 
OSELASC.-(SP) 
*2, -(SP) 
SP,RO 



{SAVE GENERAL REGISTERS 

{SAVE THE MENU ADDRESS 

{START OF MENU STRING 

{END OF ASCII ? 

{BRANCH IF ALL LINES DISPLAYED 

{DISPLAY THE MENU 



N6 



TSV3 - GLOBAL. AREAS MACRO M1113 06 -FEB -84 18:04 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



SEQ 078 



2631 
2632 



2633 

2634 
2635 
2636 
2637 



2638 
2639 
2640 
2641 
2642 
264 3 
2644 
2645 
2646 
264 7 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
266 7 
2668 
2669 



020366 
020370 
020374 
020376 
020376 
020400 
020402 
020404 
020406 
020410 
020412 
020414 
020416 
020416 
020416 
020420 
020424 
020426 
020430 
020430 
020434 
020440 
020442 
020444 
020450 
020452 
020454 
020522 
020527 



020560 
020560 
020564 
020564 



104417 
062706 
000764 

104443 
000406 
020556 
000042 
020527 
1777/7 
000000 
177777 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020556 000000 



000006 



3$ 



10001$ 



TRAP 

ADO 

BR 

GMANID 

TRAP 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



CIPNTF 

06, SP 

2$ 

MENASC.MENRES.D, -1,0,-1, NO 

C$GMAN 

10001$ 

MENRES 

TICODt 

MENASC 

-1 

TilOLIM 

TJHILIM 



020556 



020454 
000001 



000004 



116 
116 
156 



5$; 

045 MENERR 
045 SELASC 
164 MENASC 

MENRES: 



BNCOMPUETE 

BCC 

MOV 

CMP 

BLOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



1* 
1$ 

MENRES ,R0 
R0.R1 
5$ 

OMENERR 
*MENERR ( -(SP'; 
Ol.-CSP) 
SP,RO 
C*PNTF 
04, SP 
1$ 
PC 

•*N*A *** Menu 
•*N*T' 



{RETRY IF ERROR 

{GET THE OPERATOR'S REPLY 
{COMPARE TO MAXIMUN ALLOWED 
{BRANCH IF OK 
{DISPLAY ERROR MESSAGE 



• RETRY 

| RE TURN TO CALLER 
Selection Too Large 



*** 



Enter Menu Selection: 



SBTTL 



.UORO 
CHKMAN 





- CHECK 



MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
INPUT: 

NONE. 



OUTPUT : 



CARRY 



SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED UARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CHKMAN: j 



104450 



SAVREG 
MANUAL 
TRAP 



C$MANI 



{SAVE THE REGISTERS 

jbEE If MANUAL INTERVENTION OK 



B7 



TSV3 GLOBAL AREAS 
CHKMAN - CHECK MANUAL 



MACRO Mill 5 06 -FEB -84 18:04 
INTERVENTION LEGALITY 



2670 020566 






020566 


103411 




2671 020570 






020570 


012746 


020614 


020574 


012746 


000001 


020600 


010600 




020602 


104417 




020604 


062 7Q6 


000004 


2672 020610 


000241 




2673 020612 


000207 




2674 






2675 020614 


045 


116 045 


26 76 






2677 






26 78 






2679 






2680 






2681 020710 






020710 


104431 




2682 020712 


010037 


003116 


2683 020716 


062737 


000002 003116 


2684 020724 


011037 


003120 


2685 020730 


162737 


000004 003120 


2686 02C736 


013702 


002012 


2687 020742 


162737 


000007 003120 


2688 020750 


005302 




1>689 020752 


001373 




2690 020754 


013700 


003116 


2691 020760 


063700 


003120 


2692 020764 


162700 


000002 


2693 020770 


010037 


003122 


2694 020774 


000240 




2695 020776 


012701 


177520 


2696 02100? 


010102 




2697 0210O4 


062702 


000002 


2698 021010 


004737 


016456 


2699 021014 


103001 




2700 021016 


000445 




2701 021020 


013701 


177520 


2702 021024 


062701 


000001 


2 703 021030 


012702 


177520 


2704 021034 


005212 




2705 021036 


013703 


177520 


2706 021042 


020103 




2 707 021044 


001017 




2708 021046 


005237 


003136 


2?09 021052 


042737 


170000 002120 


2710 021060 


000240 




2711 021062 






021062 


012746 


005550 


021066 


012746 


00000 I 


021072 


010600 




021074 


10441/ 




021076 


062706 


000004 


271? 021102 


000413 




2713 021104 


005237 


003140 


2714 021110 


000240 





BCOMPLETE 1$ 



1*1 

NOMANi 



BCS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLC 

RTS 



1$ 

ONOMAN 

ONOMAN, -CSP) 

• 1. -CSP) 

SP.RO 

CIPNTP 

04, SP 

PC 



SEQ 079 

I BRANCH IF ALLOWED 

j PRINT THE WARNING MESSAGE 



t CLEAR CARRY FOR ERROR 
, RETURN 



.ASCIZ 

, ev«n 
.S8TTL 



'*N*A ♦** Manual Intervention not Allowed 
ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
» SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS* 



T«9t Aborted ***' 



ENVIRN} 



10$ j 



151 i 



20* i 



MEMORY 

TRAP 

MOV 

ADD 

MOV 

SUB 

MOV 

SUB 

DEC 

ONE 

MOV 

ADO 

SUB 

MOV 

NOP 

MOV 

MOV 

ADD 

JSR 

BCC 

BR 

MOV 

ADD 

MOV 

INC 

MOV 

CMP 

BNE 

INC 

BIC 

NOP 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

INC 

NOP 



RO 

CIMEM 

RO.FREE 

♦2 .FREE 

(RO).FRESIZ 

♦4 f FRESIZ 

LIUNIT.R2 

♦7.FRESIZ 

R2 

10$ 

FREE.RO 

FRESIZ.Ru 

♦2.R0 

RO.FREEHI 

eeDVPCR.Rl 

R1.R2 

02, R2 

PC . XNXM 

151 

40$ 

BDVPCR,R1 

01. Rl 

06DVPCR.R2 

(R2) 

BDVPCR.R3 

R1.R3 

20$ 

T23A 

01 70000, LIHIME 

GM8186 

0M8186, (SP) 

• 1, -CSP) 

SP.RO 

C$PNTF 

04, SP 

40$ 

T23B 



GET 1ST FREE ADDRESS, ,, 

...AND WORD COLNT. 

GET NUMBER OF UNITS 

TAKE AWAY 7 WORDS PER UNIT 



GET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRESS 
BACKUP 1 WORD 
STORE LAST FREE ADDRESS 



GET BDVii PCR ADDRESS 

COPY TO R2 

SET THE RANGE 

SEE IF WE HAVE ONE 

OK TO SET FLAGS 

RETURN WITH FLAGS CLEAR 

SAVE PCR CONTENTS 

ADO ONE TO IT 

GET BDVll PCR AODRESS 

TRY TO WRITE TO IT 

GET RESULTS 

DID IT CHANGE? 

NO, MUST BE 11/23B 

SET THE FLAG 

SUPERVISOR COULO BE WRONG 

BR 40$ FOR RELEASE 

TELL THE SYSTEM TYPE 



I RE TURN 

I SE T THE MAG 

iBR 40$ FOR RELEASE 



C7 



TSV5 - 
ENVlRN 

2715 



GLO 



M\Mh oiMWmt>hi oe FEB " 84 18!04 



2 716 
2717 
2718 
2"" f 9 

^'20 

2721 

2722 
27^3 
2724 
2725 
2726 
272? 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2 738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2/f>4 
2765 
2766 



021112 

021112 
021116 
021122 
021124 
021126 
021132 



021134 
021134 
021140 
021144 
021 152 
021154 
021160 
021166 
021172 
021174 
021202 
021210 
021214 
021216 
021222 
021230 
021232 
021236 
021242 
021244 
021250 

021552 
021256 

021260 

021264 



C12746 
012746 
010600 
104417 
062706 
000207 



005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 

000207 



005641 
000001 



000004 



PRINTF 


0M6189 


MOV 


«MS189,-(SP) 


MOV 


•l.-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


04.SP 


RT5 


PC 


.SBTTL 


KTINIT - SE 



SEQ 080 



jTELL THE SYSTEM TYPE 



003124 
003126 
002120 001577 

000004 

021252 000004 

177572 

002120 003124 
000177 003124 
000004 

172340 

077406 177740 

000200 
002000 

177600 



0212/* 
000004 



40*: 

l * 

( ROUTINE TO INIT KT-11 

J 
J - 

KTINIT: 



iRETURN 
SETUP KT11 MEMORY MANAGEMENT REGISTERS 



1$ 



2$ 



6$ 

9» 

t 



CLR KTFLG 

CLR KTENABLE 

CMP LJHIME, 01577 

BLOS 91 

MOV 8#ERRVEC.R0 

MOV «2I,B0ERRVEC 

TST OOSRO 

NOP 

MOV LIHIME, KTFLG 

BIC #177,KTFLG 

MOV RO.SOERRVEC 

CLR RO 

MOV 0KIPAR0.R1 

MOV 077406, -40(R1) 

MOV R0.CR1)* 

ADD 0200. RO 

CMP RO f 02000 

BN€ 1$ 

MOV 0177600, -CRD 

BR 9$ 

MOV 0fe»,CSP) 
RTI 

MOV RO.SOERRVEC 

RTS PC 



INIT >28K MEMORY FLAG 

INIT TEST >28K FLAG 

GOT ENOUGH MEMORY (>28K)? 

NO. 

SAVE OLD ERR VE<* PTR. 

SET ERR VEC PTR. 

GOT KTll? 

(TRAP IF NO). 
YES. SET KT FLAG. 

RESTORE OLD ERR VEC PTR, 

RO • AR DATA, 

Rl ■ KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY "4K " . 

AT "I/O"? 

NO. 

YES. SET KTPAR7 FOR I/O. 



SET \JP RETURN 

RTI TO NEXT LOCATION 

I RESTORE OLD ERR VEC PTR, 



SUBROUTINE TO SET EXTENDED FEATURES SWITCH 

Requires that SOFINIT and WRTCHR have fc*«n don« previous to call* 



CURRENT UNIT NUMBER 



021266 



INPUTS: 

R5 
OUTPUTS: 

The Extended Features Switch Is set* 



INVERT {{ 



0/ 



t T <flSlT ^"ieVuff'Wll MEM^HaM^E^R^S?^ 8 ' 04 



2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
277b 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2 784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 



021266 
021272 
021274 

021302 
021310 
021316 
021324 
021330 
021334 



021340 
021342 
021344 
021346 



021350 
021352 
021354 



C21356 

C21356 
021362 
021366 
021372 
021376 
021402 
021404 
021412 
021414 
021420 
021422 
021426 
021430 
021436 
021440 
021446 
021450 
021454 
021456 
021464 



005737 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



021340 

000000 
000000 
000000 
000000 



000000 
000000 
000000 



005037 
005037 
005037 
005737 
001407 
023727 
103406 
004737 
000427 
005737 
001413 
023727 
101023 
023727 
103403 
004737 
000411 
023727 
103410 



002220 

100206 021340 

021350 021342 

000006 021346 

100010 021350 
021340 
010742 



U: 



8 s 04 




SEQ 001 


TST 


EXTFEA 


IS SWITCH SET? 


BNE 


11 


YES, EXIT STAGE RlGHTKor the next one outo town") 


MOV 


0100206, CMDPKT 


WRT SUB -SYS MEM CMD 


MOV 


*WSM6K,CM0PKT*2 


MSG BUT AOOR 


MOV 


06,CM0PKT*6 


BYTE COUNT 


MOV 


0100010 .WSMBK 


INVERT THE SWITCH 


MOV 


0CMDPKT,R4 


SET CMOPKT INTO R4 


JSR 


PC,WRTCHR 


DO IT 


RTS 


PC 


RETURN 



CMDPKT; 



J 



WSMBK 



COMMAND PACKET, 

<.*3>£177774 










jMUST BE ON MOD 4 BOLNDRY. 

1 1ST WORO IS TS05 COMMANO, 

1 2ND WORD IS THE BUFFER LOW ADDRESS. 

1 3RD WORD IS THE BUFFER HIGH ADDRESS. 

j4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 







.EVEN 



j 1ST WORD 
j2N0 WORD 
{3RD WORO 



SEL 
SEL 2 
SEL 4 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS: 

The NXMFLG i« «et If we can test. 

The NXMLO and NXMHI addresses are setup. 



MEMCK: s 



003130 
003132 
003134 
003140 

002120 007777 

021532 

003136 

002120 005777 

002120 003777 

021532 

002120 001577 



it: 
2J: 



4$: 



SAVREG 

CLR 

CLR 

CLR 

TST 

BEQ 

CMP 

BLO 

JSR 

BR 

TST 

BEQ 

CMP 

BHI 

CMP 

BLO 

JSR 

BR 

CMP 

BLO 



NXMFLG 

NXMLO 

NXMHI 

T23B 

1* 

LSHIME, 07777 

2$ 

PC.NXMTST 

131 

T23A 

4$ 

L$HIME, 05777 

14$ 

L*HIME, 03777 

4$ 

PC.NXMTST 

131 

LIHIME, 01577 

14$ 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS HI 

IS IT A 11/23B7 

NO 

GREATER THAN 128K 

NO 
SETUP THE ADDRESS 
SET THE FLAG ANO EXIT 
IS IT A U/23A? 
NO 

GREATER THAN 96K 
YES.23A/23B WITH 128K MEMORt 
GREATER THAN 64K BUT LESS THAN 92K? 
NO, CHECK 24K 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
GREATER THAN 24K BUT LESS THAN 64K ? 
NO. TELL THEM AND FXIT WITH FlAg CLEAR 



TSV3 
KTINI 



- GLOBAL AREAS MACRO M1113 Q6-FFR-A4 18;04 
T - SETUP KT11 MEMORY MANAGEMENT REGISTERS 



E7 



2824 


021466 


004737 


021532 


2825 


0214 72 


062737 


00007 7 


2826 


021500 


005237 


003130 


2827 


021504 


000411 




2828 


021506 


000410 




2829 


021510 








021510 


012746 


005454 




021514 


012746 


000001 




021520 


010600 






021522 


104417 






021524 


062706 


000004 


2830 


021530 


000207 




2831 








2832 








2833 








2834 








2835 








2836 








283/ 








2838 








2839 


021532 


013701 


002120 


2.840 


021536 


062701 


000200 


2841 


021542 


042701 


000177 


2842 


021546 


010102 




2843 




000006 




2844 








2845 








2846 


021564 


010137 


003132 


2847 




000012 




2848 








2849 








2850 


021614 


042702 


177700 


2851 


021620 


010237 


003134 


2852 


021624 


000207 




2853 








2854 








2855 








2856 


021626 







003134 





JSR 


PC.NXMTST 




ADD 


07 7.NXMHI 


13$: 


INC 


NXMFLG 




BR 


15$ 


14$: 


BR 


15$ 




PRINTF 


ONOMEM 




MOV 


ONOMEM, -CSP) 




MOV 


ftl.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


04, SP 


15$: 


RTS 


PC 



SEQ 082 



I SETUP THE ADDRESS 

jFOOL THE 11/02 6 11/03 

j SET THE FLAG 

IEXIT 

I NOP FOR PRINTOUT 

I TELL THEM fi EXIT ***N0 PRINT***** 



{RETURN 

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
OUTPUTS :NXML0,NXMHI {SETUP WITH NXM ADDRESS 



NXMTST: MOV 


L$HIME,R1 


ADO 


0200, Rl 


BIC 


0177, Rl 


MOV 


R1,R2 


.REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


Rl.NXMLO 


.REPT 


10. 


ASR 


R2 


.ENOR 




BIC 


0177700. R2 


MOV 


R2.NXMHI 


RTS 


PC 



{GET TOP OF MEMORY 

jMAKE IT I/O BLOCK OR OTHER NXM 

jRESAVE RESULTS 

j PUT IN PLACE FOR XFER 

iSAVE TEST ADDRESS LOW 

iPUT IN PLACE FOR XFER 

{DON* T WANT ILA{ 

{SAVE TEST ADDRESS HIGH 

{RETURN 



ENOHOD 



F7 



TSV4 MISCELLANEOUS SECTIONS MACRO M1115 06-FEB-84 18{04 SEQ 063 

KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 

7 .TITLE TSV4 - MISCELLANEOUS SECTIONS 

8 

9 021626 BGNMOD TSV4 

021626 TSV4s: 

10 
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SEQ 084 



17 

18 021626 
021626 

19 021626 

20 02X636 



177777 177777 177777 



L$PROT:i 



.SBTTL PROTECTION TABLE 

BGNPROT 

.WORD -1, -1, -1, -1 
ENDPROT 



}N0 DEVICE PROTECTION REQUIRED, 



1-17 



TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 021636 
021636 

36 021636 005037 002220 

37 021642 005037 003130 

38 021646 012737 006354 

39 021654 005037 003146 

40 021660 005037 003126 

41 021664 005037 002274 

42 021670 

021670 012700 000036 

021674 104447 

43 021676 
021676 103023 

44 021700 023737 002174 

45 021706 103070 

46 021710 005737 003104 

47 021714 100472 

48 021716 013701 002174 

49 021722 006301 

50 021724 005761 003170 

51 021730 001516 

52 021752 032761 040000 

53 021740 001060 

54 021742 
021742 104432 
021744 000416 

55 021746 

021746 012700 000035 
021752 104447 

56 021754 
021754 103052 

57 021756 

021756 012700 000040 
021762 104447 

58 021764 
021764 103404 

59 021766 

021766 012700 000037 
021772 104447 

60 021774 
021774 103031 

61 021776 

62 021776 
021776 104433 



MACRO M1113 06 -FEB -04 18:04 



SEQ 085 



.SBTTL INITIALIZE SECTION 



♦ *■ 



THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 

IF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE", NOTHING IS REQUIRED. 



INSERT TEMPORARY JUMP TO ODT 
BGNINIT 



002172 



002012 



003170 



LJINIT: : 




40$; CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


*EPRT1 ; EPRTSW 


CLR 


SIFLAG 


CLR 


KTENABLE 


CLR 


RAMSIZ 


READEF 


OEF. CONTINUE 


MOV 


OEF. CONTINUE, RO 


TRAP 


C*REFG 


BNCOMPLETE 1$ 


BCC 


1$ 


CMP 


UNITN,L*UNIT 


BHIS 


4$ 


TST 


DUPLG 


BMI 


NXTU 


MOV 


UNITN.R1 


ASL 


Rl 


TST 


ERTABL(Rl) 


8EQ 


SETU 


BIT 


*6IT14,ERTABLCR1 


BNfc 


NXTU 


EXIT 


INIT 


TRAP 


CIEXIT 


.WORD 


L10030-. 


1$: READEF 


*EF.N€W 


MOV 


♦EF, NEW. RO 


TRAP 


CIREFG 


BNCOMPLETE NXTU 


BCC 


NXTU 


READEF 


#€F. START 


MOV 


OEF. START. RO 


TRAP 


CJREFG 


BCOMPLETE 2* 


BCS 


21 


READEF 


Q£F . RESTART 


MOV 


AEF. RESTART, RQ 


TRAP 


CIREFG 


BNCOMPLETE 31$ 


BCC 


31$ 


2*; 




BRESET 





{SET UP PRIMARY MESSAGE FOR REPLACEMENT 

{CLEAR "SOFT INIT" FLAG 

jCLEAR TEST ABOVE 28K FLAG 

;CLEAR RAM SIZE FOR RAMERR ROUTINE 



{UNIT IN RANGE? 
iBH IF NO. 
{DROPPED UNIT? 
jBR IF YES 



{DROPPFD? 

{00 NOTHING IF "CONTINUE' 1 



{TAKE NEXT UNIT IF NOT NEW PASS 



{1ST PASS, BUS-INIT... 
{BUS RESET, 
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63 022000 

64 022004 

65 022010 

66 022014 
67 

68 
69 

70 022020 

71 022024 

72 022024 

73 022032 

74 022036 

75 022042 

76 022046 

77 022050 

78 022054 

79 022056 

80 022060 

81 022064 
82 

83 022070 

84 022070 

85 022076 

86 022102 
022102 

87 022104 
83 022110 

89 022116 

90 022120 

91 022126 

92 022130 
022130 

93 022132 

94 022134 

95 022134 

96 022142 

97 022144 

98 022150 

99 022152 
022152 

100 022154 

101 022160 
102 

103 022162 
022162 

104 022164 

105 022166 
106 

107 022166 
022166 
022172 

108 022174 
022174 

109 022176 

110 022202 

111 022206 

112 Q2221Q 



005037 
005037 
005037 
005037 



012737 
004 737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 
000741 



013700 
104442 

103342 
005037 
005237 
012001 
01Q137 



002206 
002214 
003136 
003140 



005037 003372 



177777 
020710 
021134 
003170 

003370 



002176 
022134 



177777 
002212 



002174 
002174 

177777 



002012 
002212 

000100 



002174 



003104 
002212 

002200 



002176 



J 
I 
i 

20$; 



30$: 



31$: 



002174 

002012 
003104 



4$: 

NEWPAS: 

NXTU: 



000001 



111: 

PASRPTt 



10$: 

SETU: 



CLR 
CLR 
CLR 
CLR 
MOV 
MOV 
JMP 
CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

Bl.O 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 

DORPT 

TRAP 

BR 



TSTCNT 
FATFLG 
T23A 
T23B 

0340, -CSP) 
4201, -(SP) 
O.ODT 
SKIPT 

0-1. QVP 

PC.ENVIRN 

PC.KTINIT 

OERTABL.RO 

CRO)* 

RO.OERTABE 

30$ 

4$ 

QVP 

PASRPT 



O-l.UNITN 
DEVCNT 

CIBRK 

UNITN 

UNITN f L$UNIT 

SETU 

•-l.DUFLG 

11$ 

CiDCLN 



L$UNIT,#1 

NEWPAS 

DEVCNT 

NtWPAS 

RO 

C$RFLA 

OISR.RO 

NEWPAS 



C$DRPT 
NEWPAS 



SEQ 086 



j NUMBER OF TESTS RUN IN PASS 
I CLEAR FATAL ERROR COUNT 
iCLEAR 11/23A FLAG 
{CLEAR 11/23B FLAG 

{RETURN TO DEBUGGER 
j IQQ6NTER THE DEBUGGER 
{CLEAR THE SUBTEST "SKIPPER" 

j. . .QUICK VERIFY.. . 

jSET ENVIRONMENT. 

{INITIALIZE KT MEMORY MANAGEMENT 

I CLEAR THE ERROR TABLE 



jGO REPORT THE STATUS 



;INIT UNIT NUMBER. . . 

{CLEAR COUNT OF DEVICES RUNNING 



j.,. AND SET NEXT UNIT NUMBER. 



jABORT, NO MORE UNITS. 



{HOW MANY UNITS SELECTED? 
{BR IF ONLY 1 
{ARE ANY STILL RUNNING? 
{BR IF NO 



{SHOULD WE PRINT STATISTICS 
{BR IF NO 



GPHARD UNITN.RO 

MOV UNITN.RO 

TRAP C$GPHRD 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (R0"W,R1 

MOV Rl.CSRADDR 



{GET UNIT N P- TABLE POINTER. 

{BR IF UNIT NOT AVAILABLE. 

{CLEAR "DROPPED" FLAG. 

{GET 1ST REGISTER ADDRESS. 

{ADDRESS OF REGISTERS OF UNIT UNDER TEST 
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, SV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



113 
114 
115 

116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 

136 
137 
138 



022214 012001 



022216 
022222 
022226 



139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 



153 



154 
155 
156 



022232 
022236 
022240 
022246 
022252 
022260 
022262 
022262 
022264 
022270 
022272 
022272 
022276 
022302 
022306 
022310 
022312 
022316 
022316 
022322 
022326 
022330 
022334 
022340 
022342 
022346 
022354 



022354 
022354 
022360 
022362 
022362 
022362 

022364 



010137 002202 
012721 016276 
013721 002204 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002174 

100000 
005766 
002012 



0C1O00 



002174 
022364 
000002 



000006 

003106 
002200 

000002 
016456 

003106 
177777 



012700 000000 
104441 



104411 
045 



MACRO M1113 06-FEB-64 1G;C: 
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MOV 


CR0)»,R1 


? MOV 


(R0),R2 


{MOV 


R2.IPRT 


MOV 


Rl.IVEC 


MOV 


•INTR.(Rl)* 


MOV 


IPRI.CR1)* 


TST 


QVP 


BEQ 


5$ 



SEQ 087 



{GET VECTOR ADDRESS. 

jGET INTERRUPT PRIORITY 

j SET INTERRUPT PRIORITY. 

|SL"i INTERRUPT VECTOR POINTER 

t ...VECTOR, ., 

j ...AND PRIORITY. 



{1ST PASS ?? 

}N0, SKIP THE PASS 1 STUFF. 



1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
THAT THE DISPLAY STATUS IS PR0PERL1 INITIALIZED. 



003170 
000001 



003104 



MOV 


UNITN.R1 


ASL 


Rl 


BIS 


*eiU5,ERTABL(Rl 


CLR 


EXTA 


CMP 


L*UNIT,*1 


BLOS 


10$ 


RFL.AC5 


RO 


TRAP 


CIRFLA 


BIT 


SPNT.RO 


BEQ 


10$ 


PRINTF 


*PUNIT,UNITN 


MOV 


UNITN.-(SP) 


MOV 


*PUNIT,-(SP) 


MOV 


42,-CSP) 


MOV 


SP.RO 


TRAP 


OPNTF 


ADD 
10$; 

CLR 


*6,SP 


NODEV 


MOV 


CSRADDR.R1 


MOV 


R1.R2 


ADD 


*TSSR,R2 


JSR 


PC.XNXM 


BCC 


2$ 


MOV 


Rl.NODEV 


MOV 
2$: 


#-l,DUFLG 


j FINALLY. SET 


CPU PRIORITY AND W 



j SAY DEVICE RUNNING 

; CLEAR ERROR EXTENSION FLAG. 

{ARE WE TESTING MULTIPLE UNITS? 

j BR IF NO. 

tYES -- GET OPERATOR FLAGS, 

{SHOULD UE PRIN1 UNIT 0*> 
{BR IF NOT. 
{PRINT THE UNIT 



{ADDRESS OF FIRST REGISTER 

{START OF REGISTERS 

{ADDRESS OF TSSR REGISTER 

{TEST BOTH CONTROLLER REGISTERS 

; .. .AND BR IF ALL OK. 

{FLAG DEVICE AS NON-EXISTENT 

{DROP THIS UNIT, 



116 



5$5 



L10030: 



045 PUNIT 



SETPRI 4PRI00 
MOV <K>RIO0.R0 
TRAP CSSPRI 
ENDINIT 



E DONE. 
{ENABLE INTERRUPTS 



TRAP 

•ASCIZ 

.EVEN 



CilNIT 

/*N*N*A***** TESTING UNIT *D2*A **+**/ 



I<7 



TSV4 - MISCELLANEOUS SECTIONS 
ADD AND DROP UNITS SECTIONS 



MACRO M1113 06-FEB-84 18:04 



SEQ 088 



158 








159 








160 








161 








162 








163 








164 








165 022432 








022432 








166 022432 


010001 






167 022434 


006301 






168 022436 


052761 


100000 


003170 


169 022444 


042761 


040000 


003170 


170 022452 








022452 


010046 






022454 


012746 


022500 




022460 


012746 


000002 




022464 


010600 






022466 


104417 






0224 70 


062706 


000006 




171 022474 








022474 


000167 






0224 76 


000026 






172 022500 


045 


116 


045 


173 








174 








175 022526 








022526 








022526 


104452 






176 








177 








178 








179 








180 








181 








182 








183 








184 








185 








186 








187 022530 








022530 








188 022530 


012737 


177777 


003104 


189 022536 


010001 






190 022540 


006301 






191 022542 


052761 


140000 


003170 


192 022550 


000240 


000240 


000240 


193 022556 








022556 


010046 






022560 


012746 


022604 




022564 


012746 


000002 




0225 70 


010600 






022572 


104417 






022574 


062706 


000006 




194 022600 








022600 


000167 






022602 


000030 







.SBTTL ADD AND DROP UNITS SECTIONS 



THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TI"£, 

OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



L$AU: 



1*: 



L10031: 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENOAU 

TRAP 



R0.R1 

Rl 

0100000, ERTABL(Rl) 

040000, ERTABL(Rl) 

01$, RO 

RO.-(SP) 

*1$,-(SP) 

02,-CSP) 

SP,RO 

CIPNTF 

06. SP 

AU 

JiJMP 

L10031-2-. 

/*N*A UNIT *D*A ADDED/ 



j GET UNIT TO BE ADDED CRO) 
i MAKE IT A WORD INDEX 
; SET THE "ACTIVE" BIT 
; CLEAR THE "DROPPED" BIT 



; UNUSED. 



CIAU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE -SELECTED ON OPERATOR "ST A" OR "ADD" 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAV COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P- TABLES CF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



LIOU: : 



BGNOU 



MOV 


O-l.DUFLG 


MOV 


R0,R1 


ASL 


Rl 


BIS 


0140000, ERTABLCRl) 


240,240 


,240 


PRINTF 


on.RO 


MOV 


RO,-(SP) 


MOV 


«lt,-(SP) 


MOV 


02,-CSP J 


MOV 


SP,RO 


TRAP 


CIPNTF 


ADD 


06, SP 


EXIT 


DU 


.WORD 


JUMP 


.WORD 


L10032-2-. 



{ SAY DROPPED 
j ????????? 
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TSV4 - MISCELLANEOUS SECTK 
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195 022604 

196 

197 022634 
022634 
022634 

198 

199 

200 

201 022636 
022636 

202 022636 

203 022642 

204 022646 

205 022652 

206 022654 
022654 
022660 
022662 
022666 
022670 
022674 
022676 
022702 

207 022704 

208 022706 

209 022710 

210 022714 

211 022714 
022714 
022714 



045 



104453 



013705 
012703 
004 737 
103420 



000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



INS 



116 
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SEQ 089 



045 1$: 



002200 
000550 
016330 



000372 
002116 
1< 7772 
177756 

017262 



.ASCIZ 

.EVEN 
ENDDU 



L 10032 t 



TRAP 

AUTO -DROP CODE SECTION. 
BGNAUTO 



/*N*A UNIT tfD*A DROPPED/ 



C$DU 



L$AUT0j 



10$ 



20$; 
L 10033: 



MOV CSRADDR.R5 

MOV #360., R3 

JSR PC.WAITF 

BCS 20$ 

DELAY 250. 

MOV #250., (PC)* 

.WORD 

MOV L$DI * ,vPO* 

.WORD 

DEC -6(PC) 

BNE . -4 

DEC -22CPC) 

BNE . -20 

DEC R3 

BNE 10$ 

JSR PC.CKDROP 

ENDAUTU 

TRAP C$AUTO 



jPOINT TO DEVICE REGISTER 

lENOUGH TIME FOR 2400' REEL TO REWIND 

jWAIT FOR SSR TO SET 

;LEAVE WHEN SSR IS SET 

j WAIT FOR .25 SECONDS 



5 BUMP COUNTER DOWN 

? KEEP GOING 

; TRY AND DROP UNIT 



j UNUSED. 
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213 
214 

215 
216 
217 
218 
219 
220 

221 
222 
223 
224 
225 
226 
227 
228 
229 



i8¥ s c8B$^i 



| MACRO M1113 
[CTIONS 
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SEQ 090 



230 
231 
232 
233 
234 

235 



236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 



248 

249 
250 
251 



022716 
022716 
022716 
022722 
022726 



022730 
02273C 
022742 
022742 
022742 
022742 



022744 
022744 
022744 
022744 
022750 
022754 
022756 
022/60 
022764 
022766 
022770 
022772 
022776 
023000 
023002 
023004 
023006 
023012 
023014 
023020 
023020 
023022 
023024 
023030 
023034 
023036 
023040 
023044 
023046 
023052 
023054 
023054 
023056 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



♦ f 



THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS 
EXECUTED AT THE END OF EACH PASS (OR SU6-PASS), 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



013705 002200 
005737 003104 
100405 



012765 000000 000002 
004737 016330 



L$CLEAN: 



PGNCLN 

MOV 

TST 
BMI 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
02022 7 
001012 

010346 
012746 



023206 
000001 



000004 
003170 

040000 
170000 



023243 
000003 



000010 
160000 

023313 



1$; 
2$; 
L10034: 



MOV 
JSR 

ENDCLN 

TRAP 



CSRADDR.R5 

DUFLG 

U 



*0,TSSR(R5) 
PC.WAITF 



C$CLEAN 



jPOINT TO DEVICE REGISTER 
i "DROPPED" FLAG IS SET ON... 
{...AND GROSS CONTROLLER FAULT... 
I... DON'T TRY TO XCT CLEANUP CODE 

iDO SOFT INIT 



*■ * 



THE REPORT COOING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



L$RPTs 



BGNRPT 



1$ 



2$ 



PRINTS 


WEVSUM 


MOV 


*DEVSUM ( -(SP) 


MOV 


«L,-(SP) 


MOV 


SP.RO 


TRAP 


C*PNTS 


AOD 


44.SP 


MOV 


R2.-CSP) 


MOV 


R3.-CSP) 


MOV 


R4,-csn 


MOV 


♦ERTABI R4 


CLR 


R3 


MOV 


(R4),R2 


BEQ 


4$ 


BPL 


4$ 


BIT 


♦BIT14.R2 


BNE 


2$ 


BIC 


<UC7777,R2 


PRINTS 


*0EV0NL,R3,R2 


MOV 


R2.-CSP) 


MOV 


R3, -CSP) 


MOV 


OOEVCNL, -CSP) 


MOV 


43,-CSP) 


MOV 


5P.R0 


TRAP 


CIPNTS 


ADD 


*10,SP 


BR 


4$ 


CMP 


R2 ,4160000 


BNE 


3$ 


PRINTS 


4DEVNXR.R3 


MOV 


R3. CSP) 


MOV 


ODEVNXR, -(SP) 



? GET START OF ERROR TABLE. 

; CLEAR UNIT NUMBER 

j GCT ERROR TABLE ENTRY 6 TEST IT 

; ZERO IF UNIT NOT RUN 

l WAS UNIT DROPPED? 
j BR IF YES 

} GE1 ERROR COUNT FIELD 
{ PRINT 



t WAS UNIT NON-EXISTENT? 
j BR IF NO 
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TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 
CLEAN-UP AND REPORT CODING SECTIONS 



06-FEB-84 16:04 



SEQ 091 



023062 
023066 
023070 
023072 

252 023076 

253 023100 

254 023104 

255 023106 
023106 
023110 
023114 
023120 
023122 
023124 

256 02T.130 

257 023132 

258 023136 
023136 
023140 
023142 
023146 
023152 
023154 
023156 

259 023162 

260 023166 

261 023170 

262 023174 

263 023176 

264 023200 

265 023202 

266 023204 
023204 
023204 

267 

268 023206 

269 023243 

270 023313 

271 023375 

272 023456 
273 

274 

275 023526 
276 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 

045 
045 
045 
045 
045 



000002 

000006 
160001 



023375 
000002 



000006 
170000 



023456 
000003 



000010 
000002 

003370 



116 
101 
101 
101 
101 



3$s 



30$: 



4$: 



L10035 



045 DEVSUM 

040 DEVONL 

040 DEVNXR 

040 OEVNRD 

040 UCVORO 



MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

ADD 

INC 

CMP 

BLO 

MOV 

MOV 

MOV 

ENDRPT 

TRAP 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

ENDMQD 



WAS UNIT NOT 
BR IF NO. 



READY AT STARTUP? 



42,-CSP) 

SP,R0 

C*PNTS 

46, SP 

4* 

R2, 4160001 

30* 

4DEVNRD,R3 

R3,-(SP) 

4DEVNRD,-(SP) 

♦2,-CSP) 

SP.RO 

C*PNTS 

46, SP 

4* 

4tC7777,R2 

40EVDR0,R3,R2 

R2,-CSP) 

R3.-CSP) 

4DEVDR0.-CSP) 

43.-CSP) 

SP,RO 

CJPNTS 

410, SP 

42, R4 

R3 

R4,4ERTABE 

1% 

CSP)*,R4 

(SP)».R3 

CSP)*.R2 

j UNUSED, 

CtRPT 

/*N*ADEVICE STATUS SUMMARY-*N/ 

/*A UNIT *D3*A ONLINE, ERRORS • *D*N/ 

/*A UNIT *D3*A DROPPED, NON-EXISTENT REGISTERS/ 

/*A UNIT *D3*A DROPPED. NOT READY AT STARTUPKN/ 

/*A UNIT *D3*A DROPPED, ERRORS » *D*N/ 
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TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 06-rtR-a4 18i04 5EQ 092 

CLEAN -UP AND REPORT CODING SECTIONS 

1 

2 .TITLE TEST 1 <- HARDWARE TEST i-8 TESTS 

5 
10 
11 023W6 BGNMUD TSV7B 

02352b TSVVBts 

V 



TEST I HARDWARE TEST 1-6 Tt^T MACRO MlllS 06-FEB-84 18:04 
TEST l; WRITE TAPE MARK RETRY 



C8 



SEQ 09? 



26 
27 
28 
29 
30 
31 
32 
35 
34 
35 
36 
37 

38 023526 
023526 

39 023526 

44 023534 

45 023S40 

46 023544 

47 023552 

48 023556 
49 

50 
51 
52 
55 
54 
55 
56 
57 
58 
59 

60 023556 
023556 
023556 

61 023560 

62 023564 

63 023570 

64 023574 

65 023602 

66 023606 

67 023610 
023610 
023614 
023616 
023622 
023624 
023630 
023632 
025636 

68 023640 

69 023644 

70 023646 

74 023652 

75 023654 
023654 
023656 
023660 



012737 
012700 
00473? 
012737 
005037 



104402 
0O4737 
0O4737 
004737 
012737 
004737 
103426 

012727 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000145 
003646 



. SBTTL TEST Is WRITE TAPE MARK RETRY 

♦ 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK), SUBTESTS ARE A5 FOLLOWS: 

THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 



006354 
032117 
016570 
000005 

026474 



002172 



002210 



T29L0OP* 



BGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



♦EPRT1.EPRTSW 
♦TST29ID.R0 
PC, TSTSETUP 
05.L00PCNT 
T29CNT 



Tli: 
, PRIMARY ERROR MESSAGE 
jASCII MESSAGE TO IDENTIFY 
jOO INITIAL TES1 SETUP 
, PERFORM 5 ITERATIONS 
I CLEAR TAPE RECORD COUNTER 



TEST 



TEST 1, SUBTEST 1 

VERIFIES THAT A WRITE TAPE MARK RETRY COMMANO ISSUED WHILE TH£ 

TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 

NON -EXECUTABLE TUNCTION (NEF) ERROR BIT SET, 



BGNSUB 



{>>>>>>>>>>>> 



>>>>>>>>>>»> 



032146 

032240 

032302 

023420 026500 

016054 



000250 
002116 
177772 
177756 
026500 
002214 



10*5 



JSR 


PC.T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


MOV 


« 10000. ,T29DLY 


JSR 


PC.SOFINIT 


BCS 


201 


DELAY 


250 



DEC T29DL Y 

BNE tOt 

INC rATFLti 

MOV R0.R1 

ERRQF ERRNQ , SFIERR * SFXMSG 



BEGIN SUBTEST 

Tl.li 

TRAP C»BSUB 

»SET COMMAND PACKET 
, SET UP OTHER COMMAND PACKET 
l SET UP OTHER COMMANO PACKET 
i SET UP DELAY ROUTINE 
iDO INITIALIZE ON CONTROLLER 
,BR IF INIT WAS OK 
iDELAY ABOUT ,23 SECONOS 

MOV 

.WORD 

MOV 

. WORL 

DEC 

BNE 

DEC 

BNE 

,BUMP DELAY ROUTINE DOWN 
jBR, IF MORE DELAY TIME LEFT 

I ERROR COUNT 
iCONTENTS OF TSSR REGISTER 
{ FATAL ERROR TSSR WAS NOT OK 

TRAP CURDF 

.WORD 101 

,WURD SRtRR 



*25o,CPC). 


L*0lY.(PO» 


-6(PC) 

-22C PC) 

. *ao 



D8 



m\ v u mv^ppm-kw mcm mus <*-««-«« « 



04 



5EQ 094 



023662 
76 023664 
77 

78 023672 

79 023676 

80 023702 

81 023704 

85 023710 

86 023712 
023712 
023714 
023716 
023720 

87 023722 
023722 

88 023724 

89 023730 

90 023732 

91 023736 

92 023740 

96 023742 
023742 
023744 
023746 
023750 

97 023752 

98 023756 

99 023762 

100 023766 

101 023772 

102 023774 

103 023776 

107 024002 
024002 
024004 
024006 
0240 JO 

108 024012 
024012 

109 024014 

110 024020 

111 024022 

112 024026 

113 024030 

114 024032 

118 024036 
024036 
024040 
024042 
024044 

119 024046 
024046 

120 024050 

121 024056 

122 024064 

123 024070 

124 024074 



012114 
013737 

012704 
004737 
103407 
005237 
010001 

104456 
000146 
005052 
012114 

104406 
016501 
010102 
042702 
020102 
001406 

104455 
000147 
026502 
015554 
004737 
004737 
016501 
012702 
103407 
010004 
005237 

104456 
000150 
030305 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000151 
027776 
015554 

104406 
013737 
012737 
012704 
010465 
004737 



002174 026340 20*; 

026320 
010742 

002214 



25$; 



MOV 

MOV 
JSR 
8CS 
INC 
MOV 
ERRHRD 



CKLOOP 



UN1TK.T29DSW 

OT29PACKET.R4 
PC, UR1CHR 

FATFLG 

R0.R1 
ERRNQ,WRTMSG,SFIMSG 



I SET UP UNIT NUHBER 



.WORD sriMSG 



000002 
000100 



MOV 


15SR(R5),R1 


MOV 


Rl.RP 


BIC 


♦0FL.R2 


CMP 


R1.R2 


BEQ 


26$ 


ERRDF 


ERRN0.T290FL, EXPREC 



017262 
011074 
000002 
000200 



002214 



26$: 



30$: 



JSR 
JSR 
MOV 
MOV 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



PCtCKOROP 

PC, REWIND 

TSSRCR5),Rl 

*SSR,R2 

30$ 

R0.R4 

FATFLG 

ERKN0,T29RWN,PKTSSR 



026350 
000002 

002214 



MOV 


T29tiFR»6,Rl 


MOV 


R1.R2 


BIS 


•BIU.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


EHRN0.T29B0T, EXPREC 



40$: 



CKLOOP 



003116 026442 

141011 026440 
026440 
000000 
016330 



MOV 


FREE.T29RB 


MOV 


0141011, T29PK3 


MOV 


OT29PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PCiWAITF 



i SUBROUTINE NEEDS PACKET ADDRESS 
l ISSUE WRITE CHARACTERISTICS 
|BR. IF COMMANO ISSUED OK 

lERROR COUNT 
» SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



lLOOP if SELECTED 

,GET THE TSSR 

,SET UP EXPECTED 

» OFF LINE SHOU.D NOT BE 

j THEY SHOU.D BE EQUAL 

,BR, IF OFL IS NOT SET 

> DRIVE IS OFF LINE 



TRAP 



SET 



iTRY ANO DROP DRIVE 
iCALL TAPE REWIND COMMAND 
jGET TSSR 

iSET UP EXPECTED TSSR 
iBR, IF NO PROBLEM 
jPACKET ADDRESS SET uf* 

lERROR COLW 
l REWIND NOT ACCEPTED 



tLOOP IF SELECTED 

;PICK UP XSTO 

,SET UP EXPECTED 

,SET BOT BIT IN EXPECTED 

j DOES EXP - REC'D 

>BR. IF FQUAL (OK) 

lERROR COUNT 
i TAPE NOT AT BOT AFTER 



TRAP 
.WOHD 
.WORD 
.WORD 

TRAP 



jLOOP IF SELECTED 



REWINO 
TRAP 
.WORD 
.WORD 
.WO«0 

TRAP 



C$ERHRD 
102 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


C$ERDF 


.WORD 


103 


.WORD 


T290FL 


.WORD 


EXPREC 



C$ERHR0 
104 

T29RWN 
PKTSSR 

C$CLPi 



C$ERHRD 

105 

T2960T 

EXPREC 

ClCl.Pl 



j ADDRESS OF READ BUFFER 

j WRITE TAPE MARK RETRY ,CVC- 1 .ACK COMMAND 

,SET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMANO 

I WAIT FOR SSR TO SET 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1U3 
TEST 1; WRITE TAPE MARK RETRY 



125 024100 

126 024104 
12V 024U0 
126 024112 
129 024U4 

133 024120 
024120 
024122 
024124 
024126 

134 024130 
024130 

135 024132 

136 024136 

137 024140 

138 024144 

139 024146 

140 024150 

144 024154 
024154 
024156 
024160 
024162 

145 024164 

146 024164 

147 024166 

148 024170 
024170 
024170 

149 024172 

150 024200 

151 024202 

152 024206 
153 

154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 

165 024206 
024206 
024206 

166 024210 

167 024214 

168 024220 

169 024224 

170 024230 

171 024232 
171 024236 
176 024240 

024240 



016501 
012702 
020102 
001406 
005237 

104456 
000152 
027562 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000153 
026630 
015554 

005103 
001273 



104403 
023727 
103402 
004737 



104402 
004 737 
C04737 
004737 
004737 
103407 
005237 
010001 

104455 



000002 
100206 



002214 



75$: 



026350 
002000 

002214 



FEB -84 


18:04 


SEQ 095 






MOV 


TSSRCR5),R1 


iGET TSSR CONTENTS 






MOV 


*SSR»SCIBIU!BIT2,R2 


|SET UP EXPECTED 






CMP 


R1.R2 


,ARE THEY EQUAL 






BEQ 


75$ 


jBR, IF OK 






INC 


FATFLG 


j ERROR COUNT 






ERRHRD 


ERRN0.T29WDE, PKTSSR 


j TSSR INCORRECT AFTER 


READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 


CJERHRD 
106 

T29WDE 
PKTSSR 


CKLOOP 




lLOOP IF SELECTED 


TRAP 


C$CLPl 


MOV 


T296FRf6,Rl 


,GET XSTO STATUS WORD 






MOV 


R1.R2 


|SET UP EXPECTED 






BIS 


*6IT10,R2 


1 SET THE NEF BIT 






CMP 


R1.R2 


j ARE THEY EQUAL 






BEQ 


170* 


|BR, IF EQUAL (GOOD) 






INC 


FATFLG 


i ERROR COUNT 






ERRHRD 


ERRN0.T29NEF, EXPREC 


iNEF SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
107 

T29NEF 
EXPREC 



170$: 



002214 000017 
017262 



999$ 



COM R3 

BNE 26$ 

ENDSUB 



CMP FATFLG, *15 

BLO 999$ 

JSR PC.CKDROP 



jRESET THE SWITCH 

j BR, IF FIRST TIME THROUGH HERE 

L 10037: 

TRAP 
t IS ERROR COLWT AT 25 
iBR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



C$ESU6 



032146 
032240 
032302 
016054 

002214 



j TEST 1. SUBTEST 2 

{VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 

iIS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT ) RESULTS IN 

iTAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 

tSET. 



j >>>>>>>>>>>> BEGIN SUBTEST "» *>> > >^ > •» * * > 

T1.2; 

TRAP C5BSUB 
I SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 
|D0 INITIALIZE ON CONTROLLER 
»BR IF INIT WAS OK 

I ERROR COUNT 
tCONTENTS OF TSSR REGISTER 
jFATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 



l 
i - 


BGNSUB 






JSR 


PC, T29REST 




JSR 


PC, J29RT2 




JSR 


PC.T29RT3 




JSR 


PC.SOFINIT 




BCS 


20$ 




INC 


FATFLG 




MOV 


R0,R1 




ERRDF 


ERRNO,SFIERR,SFIMSG 
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TEST I - HARDWARE TEST 1-6 TEST MACRO M1113 
TEST 1; WRITE TAPE MARK RETRY 



06 -FEB -84 18:04 



SEQ 096 



024242 


000154 




024244 


003646 




024246 


012114 




177 024250 


013737 


002174 026340 


178 






179 024256 


012704 


026320 


180 02*262 


004737 


010742 


181 024266 


103407 




182 024270 


005237 


002214 


186 024274 


010001 




187 024276 






024276 


104456 




024300 


000155 




024302 


005052 




024304 


012114 




188 024306 






024306 


104406 




189 024310 


004737 


011074 


190 024314 


016501 


000002 


191 024320 


012702 


000200 


192 024324 


103407 




193 024326 


010004 




194 024330 


005237 


002214 


198 024354 






024334 


104456 




024336 


000156 




024340 


030305 




024342 


012126 




199 024344 






024344 


104406 




200 024346 


013701 


026350 


201 024352 


010102 




202 024354 


052702 


000002 


203 024360 


020102 




204 024362 


001406 




205 024364 


005237 


002214 


209 024370 






024370 


104456 




024372 


000157 




024374 


027776 




024376 


015554 




210 024400 


012737 


000001 026442 


211 024406 


012737 


000400 026446 


212 02*414 


012737 


140005 026440 


213 024422 


012704 


026440 


214 024426 


010465 


000000 


215 024432 


004737 


016330 


216 024436 


016501 


000002 


217 024442 


012702 


000200 


218 024446 


020102 




219 024450 


001420 




220 024452 


013703 


026350 


221 024456 


032703 


000004 


222 024462 


001405 




223 024464 






024464 


104455 




024466 


000157 





20$; 



MOV 


UNITN, T 29DSW 


MOV 


*T29PACKET,R4 


JSR 


PC.WRTCHR 


BCS 


25$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



25$: 
26$: 



30$: 



CKLOOP 

JSR 
MOV 
MOV 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



40$: 



PC, REWIND 

TSSRCR5),R1 

0SSR.R2 

30$ 

R0.R4 

FATFLG 

ERRN0.T29RWN.PKTSSR 



MOV 


T29BFRf6,Rl 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BF.Q 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T29B0T,EXPREC 



jSET UP UNIT NUM8ER 



.WORD 108 
.WOPH SFIERR 
.WORD SFIMSG 



, SUBROUTINE NEEDS PACKET ADDRESS 
i ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 

l ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



{LOOP IF SELECTED 

tCALL TAPE REWINO 
»GET TSSR 

,SET UP EXPECTED TSSR 
{BR, IF NO PROBLEM 
{PACKET ADDRESS SET UP 

{ERROR COUNT 
{REWIND NOT ACCEPTED 



TRAP 
COMMAND 



C$ERHRD 
109 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
110 

T29RUN 
PKTSSR 

CSCLP1 



MOV 


•1.T29RB { 


MOV 


0256..T29SZ $ 


MOV 


0140005, T29PK3 i 


MOV 


M29PK3.R4 j 


MOV 


R4.TSDBCR5) { 


JSR 


PC.WAITF , 


MOV 


TSSRCR5),R1 { 


MOV 


#SSR,R2 i 


CMP 


R1.R2 j 


BEQ 


75$ , 


MOV 


T296FR*6,R3 j 


BIT 


04, R3 i 


BEQ 


41$ , 


ERRDF 


ERRN0.T29WLK, SFIMSG j 



{LOOP IF SELECTED 

{PICK UP XSTO 

,SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR. IF EQUAL (OK) 

{ERROR COUNT 
iTAPE NOT AT BOT AFTER REWINO 

TRAP C$ERHRD 

.WORD 111 
.WORD T2960T 
.WORD EXPREC 
NUMBER OF RECORDS TO SPACE OVER 
SET UP RECORD SIZE 
WRITE FORWARD ,CVOl a ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMANO 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE 1HEY EQUAL 
BR, IF OK 
PICK UP XTSO 
IS UNIT WRITE-LOCKED? 
NO.PROCEED WITH NORMAL ERROR 
TAPE IS WRITE LOCKED 

TRAP C$ r ROF 

.WORD 11 
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TEST 1 - HARDWARE TEST 1-8 T 
TEST 1: WRITE TAPE MARK RET 



ST MACRO M1113 
Y 



06 -FEB -84 18 ;04 



024470 027644 

024472 012114 

224 024474 
024474 104444 

225 024476 005237 002214 

229 024502 
024502 104456 
024504 000160 
024506 027731 
024510 012126 

230 024512 
024512 104406 

231 024514 012737 

232 024522 012737 
UP SPACE REVERSE 

233 024530 012704 

234 024534 010465 

235 024540 004737 

236 024544 016501 

237 024550 012702 

238 024554 020102 

239 024556 001406 

240 024560 005237 

244 024564 
024564 104456 
024566 000161 
024570 027562 
024572 012126 

245 024574 
024574 104406 

246 024576 013737 

247 024604 012737 

248 024G12 012704 

249 024616 010465 

250 024622 004737 

251 024626 016501 

252 024632 012702 

253 024636 020102 

254 024640 001406 

255 024642 005237 

259 024646 
024646 104456 
024650 000162 
024652 027562 
024654 012126 

260 024656 
024656 104406 

261 024660 013701 026356 

262 024664 010102 

263 024666 052702 000001 

264 024672 020102 

265 024674 001406 

266 024676 005237 002214 
270 024702 

024 702 104456 

024704 000163 

024/06 031724 

024710 015554 



41$: 



75$; 



DOCLN 

INC 
ERRHRD 



CKLOOP 



FATFLG 
ERRN0.T29WRT, PKTSSR 



000001 


026442 


MOV 


01.T29R6 


140410 


026440 


MOV 


♦140410, T29PK3 


026440 




MOV 


*T29PK3,R4 


000000 




MOV 


R4.TSDBCR5) 


016330 




JSR 


PC.WAITF 


000002 




MOV 


TSSR(R5),R1 


000200 




MOV 


*SSR,R2 






CMP 


RL.R2 






BEQ 


175* 


002214 




INC 


FATFLG 






ERRHRD 


ERRN0.T29WDE, PKTSSR 



003116 026442 

141011 026440 

026440 

000000 

016330 

000002 

100204 



002214 



175* { CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 



FREE.T29RB 
♦141011, T29PK3 
♦T29PK3.R4 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),ttl 

♦SSRJSC!BIT2,R2 

R1.R2 

180$ 

FATFLG 



SEQ 097 






.WORD T29WLK 




.WORD SFIMSG 


j DROP IT 






TRAP C*DCLN 


j ERROR COUNT 




jTSSR INCORRECT AFTER 


WRITE DATA 




TRAP C$ERHRD 




.WORD 112 




.WORD T29WRT 




.WORD PKTSSR 



{LOOP IF SELECTED 

TRAP C$CLP1 
I NUMBER OF RECORDS TO SPACE OVER 
i SET UP COMMAND IN APCKET 



I SET UP R4 WITH PACKET 
j ISSUE COMMAND 
{WAIT FOR SSR TO SET 
j GET TSSR CONTENTS 
,SET UP EXPECTED 
j ARE THEY EQUAL 
jBR, IF OK 

{ERROR COUNT 
j TSSR INCORRECT AFTER 



ADDRESS 



j LOOP IF SELECTED 

, ADDRESS OF BUFFER 
»WRITE TAPE MARK RETRY 
{SET UP R4 WITH PACKET 
{ISSUE COMMANO 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
;SET UP EXPECTED 
,ARE THEY EQUAL 
(BR, IF OK 

lERROR COUNT 



READ DATA 

TRAP 

.WORD 

.WORD 

.WORD 

TRAP 

,ACK,CVC 
ADDRESS 



CiERHRD 
113 

T29WDE 
PKTSSR 

CSCLP1 

1 COMD. 



180*: 



ERRHRD 


ERRN0.T29WDE.PKTSSP 


{TSSR INCORRECT AFTER 


READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
114 

T29WDE 
PKTSSR 


CKLOOP 




{LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T29BFRfl4,Rl 


;GET XST3 STATUS W03D 






MOV 


R1.R2 


iSET UP EXPECTED 






BIS 


♦BIT0.R2 


,SET THE RIB BIT 






CMP 


R1.R2 


,ARE THEY EQUAL 






BEQ 


190$ 


{BR, IF EQUAL (GOOD) 






INC 


FATFLG 


{ERROR COUNT 






ERRHRD 


ERRN0,T29RIB,EXPREC 


iNEF SHOULD BE SET 


TRAP 

.WORD 
.WORD 
»WQRO 


CiERHPD 
115 

T29RIB 
EXPREC 



;SET 



-18 



TEST 1 - 
TEST 1: 

271 
272 



273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 



287 
288 
289 
290 
291 
292 
293 



294 

295 
296 
300 
301 



302 
303 
304 
305 
306 
310 
311 



312 



HARDWARE TEST 
WRITE TAPE MAR! 



1-8 TEST MACRO M1113 



06 -FEB -94 18:04 



024712 
024712 
024712 
024712 
024714 
024 722 
024724 
024730 



024730 
024 730 
024 730 
024 732 
024736 
024742 
024746 
024754 
024760 
024762 
024762 
024766 
024770 
024774 
024776 
025002 
025004 
025010 
025012 
025016 
025020 
025024 
025026 
025026 
025030 
025032 
025034 
025036 
025044 
025050 
025054 
025056 
025062 
025064 
025064 
025066 
025070 
025072 
025074 
025074 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000164 
003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
000165 
005052 
012114 

104406 



190$; 



104403 

023727 002214 000017 

103402 

004737 017262 



999$: 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG.nS. 

999$ 

PC.CKDROP 



SEQ 098 



j>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10040: 

TRAP C$ESUB 
jIS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 



TEST 1. SUBTEST 3 

VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 

PROPERLY AND WRITES THE TAPE MARK ONTO TAPc (BY ISSUING A READ REVERSE 

COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK-1), 



BGNSUB 



032146 

032240 

032302 

023420 026500 

016054 



000250 
002116 
177772 
177756 
026500 
002214 



10$: 



JSR 


PC.T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


MOV 


$10000. , T29DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T29DLY 


BNE 


10$ 


INr 


FATFLG 


MCV 


R0.R1 


EfiRDF 


ERRNO,SFIERR,SFIMSG 



002174 026340 

026320 

010742 

002214 



20$: 



MOV 


UNITN.T29DSW 


MOV 


0T29PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


23$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



{>>>>>>>>>>>> 



23$: 



CKLOOP 



BEGIN SUBTEST 
T1.3: 

TRAP 
{SET COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 
j SET UP DELAY ROUTINE 
;D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
{DELAY ABOUT .25 SECONDS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
{BUMP DELA> ROUTINE DOWN 
j BR. IF MORE DELAY TIME LEFT 

;ERROR COUNT 
{CONTENTS OF TSSR REGISTER 
,FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 
{SET UP DRIVE NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 
{ISSUE WRITE CHARACTERISTICS 
{BR. IF COMMANO ISSUED OK 

{ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



{LOOP IF SELECTED 



>>>>>>>>•>>>> 



c$bsub 



♦250. (PC)* 


L4DLY.CPC)* 


-6CPC) 
. -4 

-22CPC) 
*-20 



C$ERDF 
116 

SFIERR 
SFIMSG 



FAILED 




TRAP 


CSERHRD 


.WORD 


LIT 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



C$CLP1 



18 



TEST 1 - HARDWA 


RE TEST 


1-6 TEST MACRO t 


TEST 1: WRITE 


TAPE MARK RETRY 


313 025076 


004737 


011074 


314 025102 


103411 




315 025104 


016501 


000002 


316 025110 


010004 




317 025112 


005237 


002214 


321 025116 






025116 


104456 




025120 


000166 




025122 


030305 




025124 


012126 




322 025126 






025126 


104406 




323 025130 


013701 


026350 


324 025134 


010102 




325 025136 


052702 


000002 


326 025142 


020102 




327 025144 


001406 




328 025146 


005237 


002214 


332 025152 






025152 


104456 




025154 


000167 




025156 


027776 




025160 


015554 




333 025162 






025162 


104406 




334 025164 


012737 


140011 026440 


335 025172 


012704 


026440 


336 025176 


010465 


000000 


33. 025202 


004737 


016330 


338 025206 


0165C1 


000002 


339 025212 


012702 


000200 


340 025216 


020102 




341 025220 


001406 




342 025222 


005237 


002214 


346 025226 






025226 


104456 




025230 


000170 




025232 


030677 




025234 


012126 




347 025236 






025236 


104406 




348 025240 


012703 


000001 


349 025244 


012737 


141011 026440 


350 025252 


012704 


026440 


351 025256 


010465 


000000 


352 025262 


004737 


016330 


353 025266 


016501 


000002 


354 025272 


012702 


000200 


355 025276 


020102 




356 025300 


001406 




357 025302 


005237 


002214 


361 025306 






025306 


104456 




025310 


000171 




025312 


030677 




025314 


012126 




362 025316 







FEB -84 


18:04 




SEQ 099 


JSR 


PC, REWIND 




j CALL TAPE REWIND COi 


BCS 


30$ 




{BR, IF NO PROBLEM 


MOV 


TSSR(R5),R1 




iGET TSSR 


MOV 


R0.R4 




j SAVE PACKET ADDRESS 


INC 


FATFLG 




{ERROR COUNT 


ERRHRD 


ERRN0.T29RWN, 


.PKTSSR 


{REWIND NOT ACCEPTED 



30$: 



CKLOOP 



MOV 


T296FR*6,R1 


MOV 


R1,R2 


BIS 


0BIT1.R2 


CMP 


R1,R2 


BEQ 


401 


INC 


FATFLG 


ERRHRD 


ERRN0,V29B0T,EXPREC 



40$ 



70$; 
150$: 



155*: 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



♦140011, T29PK3 

4T29PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

0SSR.R2 

R1.R2 

70$ 

FATFLG 

ERRN0.T29WDC.PKTSSR 



MOV 


♦1. ,R3 


MOV 


0141011, T29PK3 


MOV 


frT29PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


CMP 


R1,R2 


BEQ 


165$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T29WDC, PKTSSR 



{LOOP IF SELECTED 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

}BR, IF EQUAL (OK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER 



TRAP 
.WORO 
.WORD 
.WORD 

TRAP 



C$ERHRD 
118 

T29RWN 
PKTSSR 

C5CLP1 



{LOOP IF SELECTED 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CiERHRD 
119 

T2960T 
EXPREC 

C$CLP1 



{WRITE TAPE MARK.ACK.CVC-1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
{ISSUE COMMANO 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 

Vf> EXPECTED 

THEY EQUAL 

IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER WRITE TAPE MARK 



{SET 
{ARE 
}BR, 



TRAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
120 

T29WDC 
PKTSSR 



{LOOP IF SELECTED 

TRAP CICLP1 
{NUMBER OF RECORDS TO WRITE TM 
{WRITE TAPE MARK RETRY , ACK , CVC- 1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
{ISSUE COMMAND 
{WAIT FOR S5R TO SET 
{PICK UP TSSR 

{SET UP EXPECTED (SSR ONLY) 
{WAS STATUS GOOD 
tBR, IF TERMINATION WAS GOOD 

{ERROR COUNT 
{TSSR NOT CORRECT AFTER WRT TAPE M. 



165$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CJERKRD 
121 

T^9WDC 
PKTSSR 



J 8 



TEST 1 - HARDWARE TEST i -8 TEST MACRO M1113 
TEST 1: WRITE TAPE MARK RETRY 



363 
364 
365 
366 
367 
368 
369 
370 
3^1 
372 
376 



377 

373 
379 
380 
381 
382 
383 
387 



388 
389 



390 
391 
592 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 



406 
407 
408 
409 
410 



025316 
025320 
025326 
025334 
025340 
025344 
025350 
025354 
025360 
025362 
025364 
025370 
025370 
025372 
025374 
025376 
025400 
025400 
025402 
025406 
025410 
025414 
025416 
025420 
02542* 
025424 
025426 
025430 
025432 
025434 
025434 
025436 
025436 
0254 36 
025440 
025446 
025450 
025454 



025454 
025454 
025454 
025456 
025462 
025466 
0254 72 
025500 



104406 
012737 
013737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000172 
031643 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000173 
032024 
015554 

104406 



104403 
023727 
103402 
004737 



104402 
004737 
004737 
004737 
012737 
004737 



140401 026440 

003116 026442 

026440 

000000 

01633C 

000002 

100204 



002214 



222$: 



026350 
100000 

002214 



06-FEB-84 


18:04 




SEQ 100 

TRAP 


MOV 


4140401, T29PKi 


{READ REVERSE, ACK, COMMAND 


MOV 


FREE.T29RB 




l NUMBER OF RECORDS TO SPACE BACK 


MOV 


4T29PK3.R4 




j SET UP R4 WITH PACKET ADDRESS 


MOV 


R4.TSDBCR5) 




j ISSUE COMMAND 


JSR 


PC.WAITF 




jWAIT FOR SSR TO SET 


MOV 


TSSR(R5),R1 




jGET TSSR CONTENTS 


MOV 


*SSR!SC!BIT2, 


R2 


jSET UP EXPECTED 


CMP 


R1.R2 




» ARE THEY EQUAL 


BEQ 


222 $ 




iBR, IF OK 


INC 


FATFLG 




5 ERROR COUNT 


ERRHRD 


ERRN0.T29RDG 


PKTSSR 


{TSSR INCORRECT AFTER SPACE CMD. 

TRAP 
.WORD 
.WORD 
.WORD 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


MOV 


T296FRf6,Rl 




jPICK UP XSTO 


MOV 


R1.R2 




;SET UP EXPECTED 


BIS 


4BIT15.R2 




jTMK SHOULD BE SET 


CMP 


R1.R2 




lIS TMK SET 


BEQ 


226$ 




iBR, IF TMK WAS SET (GOOD) 


INC 


FATFLG 




j ERROR COUNT 


ERRHRD 


ERRN0.T29RRN 


.EXPREC 


j TMK NOT SET AFTER READ REV 



C$CLP1 



C$ERHRD 
122 

T29RDG 
PKTSSR 

C$CLP1 



226$: 



002214 000017 
017262 



999$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



FATFLG.415, 

999$ 

PC.CKDROP 



TRAP 


C$ERHRD 


.WORD 


123 


.WORD 


T29RRN 


.WORD 


EXPREC 


jLOOP IF SELECTED 




TRAP 


C$CLP1 


j<<< *<<<<<<< END SUBTEST >>>>>>>>>>> 


L10041: 




TRAP 


C$ESUB 


; IS ERROR COUNT AT 25 




jBR, IF LESS THAN 25 




j TRY TO DROP THE UNIT 





TEST 1, SUBTEST 4 

VERIFIES THAT THE SPACE -REVERSE PORTION OF THE WRITE TAPE MARK 
RETRY OPERATION IS PERFORMED BY REWINDING THE TAPE. ISSUING SEVERAL 
WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 
RECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 
COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT CRIB*) STATUS SET. 



BGNSUB 



032146 

032240 

032302 

023420 026500 

016054 



10$: 



JSR 


PC,T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


MOV 


410000. .T29DLY 


JSR 


PC.SOFINIT 



,>>>>>>>>>>>> BEGIN SUBTEST >i»^>^^>^ 

T1.4; 

TRAP C$BSUB 

{SET COMMANO PACKET 
}SET UP OTHER COMMAND PACKET 
•,SET UP OTHER COMMAND PACKET 
I SET UP DELAY ROUTINE 
jDO INITIALIZE ON CONTROLLER 



I<8 



TES1 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST It WRITE TAPE MARK RETRY 



06-FEB-84 18:04 



411 
412 



413 
414 
415 
419 
420 



421 
422 
423 
424 
425 
429 
430 



431 

432 
433 
434 
435 
436 
440 



441 

442 
443 
444 
445 
446 
447 
451 



452 



025504 

025506 

025506 

025512 

025514 

025520 

025522 

025526 

025530 

025534 

025536 

025542 

025544 

025550 

025552 

025552 

025554 

025556 

025560 

025562 

025570 

025574 

025600 

025602 

025606 

025610 

025610 

025612 

025614 

025616 

025620 

025620 

025622 

025626 

025630 

025634 

025636 

025642 

025642 

025644 

025646 

025650 

025652 

025652 

025654 

025660 

025662 

025666 

025670 

025672 

025676 

025676 

025 700 

025702 

025/04 

025706 

025706 



103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 

00136? 
005337 
001356 
005237 
010001 



000250 
002116 
177772 
177756 
026500 
002214 



BCS 
DELAY 



23$ 



104455 

000174 

003646 

012114 

013737 002174 026340 20$; 

012704 026320 

004737 010742 

103407 

005237 002214 

010001 



104456 
000175 
005052 
012114 

104406 

004737 011074 

103411 

016501 000002 

010004 

005237 002214 

104456 
000176 
030305 
012126 

104406 

013701 026350 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
00017 7 
0277/6 
015554 

104406 



30$ 



DEC 
BNE 
INC 
MOV 
ERRUF 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



20$ 
250 



T29DLY 

lOt 

FATFLG 

R0,R1 

ERRNO.SFIERR.SFIMSG 



UNITN.T29DSW 

*T29PACKET,R4 

PC.WRTCHR 

23$ 

FATFLG 

R0.R1 

ERRNO,WRTMSG, SFIMSG 



PC, REWIND 

301 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRN0.T29RWN.PKTSSR 



MOV 


T298FR*6,R1 


MOV 


R1.R2 


BIS 


#BIT1,R2 


CMP 


R1.R2 


BEQ 


40* 


INC 


FATFLG 


ERRHRD 


ERRN0,T29B0T,EXPREC 



SEQ 101 



{BR IV INIT WAS OK 

{DELAY ABOUT ,25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

CNE 

j BUMP DELAY ROUTINE DOWN 

j BR, IF MORE DELAY TIME LEFT 
j ERROR COUNT 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

{SET UP DRIVE NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

j BR. IF COMMAND ISSUED OK 
{ERROR COUNT 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 

{CALL TAPE REWINO COMMAND 

;BR, IF NO PROBLEM 

{GET TSSR 

{SAVE PACKET ADDRESS 
{ERROR COUNT 

{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



#250. (PC)* 


L$DLY,CPO 



-6CPC) 

. -4 

-22CPC) 

.-20 



C*ERDF 
124 

SFIERR 
SFIMSG 



CJERHRD 
125 

WflTMSG 
SFIMSG 

C*CLP1 



40$ 



CKLOOP 



{LOOP IF SELECTED 

{PICK UP XSTO 

,SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

iDOES La> - hECD 

{BR, IF EQUAL (OK) 

{ERROR COUNT 
{TAPE NOT 



{LOOP IF 



TRAP 



CIERHRD 

126 

) 29RWN 

PKTSSR 

CSCLP1 



AT BOT AFTER REWINO 




TRAP 


CIERHRD 


.WORD 


127 


.WORD 


T29B0T 


.WORD 


EXPREC 


SELECTED 





TRAP 



CSCLP1 



L8 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1U3 
TEST 1: WRITE TAPE MARK RETRY 
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SEQ 102 



453 
454 
455 
456 
457 
458 
459 
460 
461 
465 



466 

467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
481 



482 

483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
498 



499 

500 
501 
502 
503 



025710 

025716 

025722 

025726 

025732 

025736 

025742 

025744 

025746 

025752 

025752 

025754 

025756 

025760 

025762 

025762 

025764 

025770 

025776 

026004 

026010 

026014 

026020 

026024 

026030 

026032 

026034 

026040 

026040 

026042 

026044 

026046 

026050 

026050 

026052 

026054 

026056 

026064 

026072 

026076 

026102 

026106 

026112 

026116 

026120 

026122 

026126 

026126 

026130 

026132 

026134 

026136 

026136 

026140 

026146 

026154 

026160 



000012 
000001 
141011 
026440 
000000 
016330 
000002 
000200 



002214 



012737 140011 026440 

012704 026440 

010465 000000 

004737 016330 

016501 000002 

012702 000200 

020102 

001406 

005237 002214 

104456 
000200 
030677 
012126 

104406 

012703 

012737 000001 026442 

012737 141011 026440 

012704 

010465 

004737 

016501 

012702 

020102 

001406 

005237 

104456 
000201 
030677 
012126 

104406 

005303 

001355 

012737 140410 026440 

012737 000001 026442 

012704 

010465 

004737 

016501 

012702 

020102 

001406 

005237 

104456 
000202 
027562 
012126 

104406 

012737 100410 026440 

012737 000005 026442 

012 704 026440 

010465 000000 



140410 
000001 
026440 
000000 
016330 
000002 
100204 



002214 



70$: 
150* J 



155$: 



MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



165$ 



222$ 



CKLOOP 

DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



0140011, T29PK3 

0T29PK3,tf4 

R4,T5DBC r "*0 

PC.WAITF 

TSSRCR5),R1 

0SSR.R2 

R1.R2 

70$ 

FATFLG 

ERRNQ.T29WDC, PKTSSR 



MOV 


#10.. R3 


MOV 


01.T29RB 


MOV 


0141011 , T29PK3 


MOV 


0I29PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF' 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


1651 


INC 


FATFLG 


ERRHRD 


ERRN0,T29WDC, PKTSSR 



R3 

155$ 

0140410. T29PK3 

01.T29RB 

0T29PK3.R4 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

0Sf>R!SC!BIT2 t R2 

R1.R2 

222$ 

FATFLG 

ERRN0.T29WDE, PKTSSR 



4100410. T29PK3 

05.T29RB 

0T29PK3.R4 
R4.TSDBCR5) 



jWRITE TAPE MARK.ACK.CVC-1 COMMAND 
jSET OP R4 WITH PACKET ADDRESS 
j ISSUE COMMAND 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
iSET UP EXPECTED 
I ARE THEY EQUAL 
j BR, IF OK 

I ERROR COUNT 
j TSSR INCORRECT AFTER WRITE TAPE MARK 



lLOOP IF SELECTED 



TO 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
WRITE TM 



C$ERHRD 

128 

T29WDC 

PKTSSR 

C$CLP1 



{NUMBER OF RECORDS 

{SET UP PACKET 

jWRITE TAPE MARK RETRY ,ACK ,CVC-1 COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMAND 

■WAIT FOR SSR TO SET 

{PICK UP TSSR 

{SET UP EXPECTEO CSSR ONLY) 

{WAS STATUS GOOD 

{BR, IF TERMINATION WAS GOOD 

{ERROR COUNT 
j TSSR NOT CORRECT AFTER WRT TAPE M. 



{LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


129 


.WORD 


T29WDC 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



{BUMP COUNTER DOWN 

{BR. IF LESS THAN 10 TAPE MARKS 

{SPACE REVERSE, ACK.CVC-1. COMMANO 

{NUMBER OF RECORDS TO SPACE BACK 

\ SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

tWAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER SPACE CMO , 



{SET 
;ARE 
{BR, 



{LOOP IF SELECTED 



{SPACE REVERSE, ACK 
{NUMBER OF RECORDS 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 

COMMAND 
TO SPACE BACK 



CiERHRD 
130 

T29WDE 
PKTSSR 

C$CLPi 



{SET UP R4 WITH 
{ISSUE COMMAND 



PACKET ADDRESS 



M8 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 1: WRITE TAPE MARK RETRY 



504 
505 
506 
507 
508 
509 
513 



514 

515 
516 
517 
518 
519 
520 
524 



525 
526 
527 



528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 



539 
540 
541 
543 
545 
546 
54 7 
548 
549 
550 
551 
552 
553 



026164 
026170 
026174 
026200 
026202 
026204 
026210 
026210 
026212 
026214 
026216 
026220 
026220 
026222 
026226 
026230 
026234 
026236 
026240 
026244 
026244 
026246 
026250 
026252 
026254 
026254 
026256 
026256 
026260 
026260 
026260 
026262 
026270 
026272 
026276 



026276 
026302 
026304 
026310 
026310 
026312 



026320 
026320 
026322 
026324 
026326 
026330 
026330 
026332 
026334 



004737 
016501 
012702 
020102 
001406 
005237 

104456 
000203 
031643 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000204 
031724 
015554 

104406 

104406 



104403 
023727 
103402 
004737 



004737 
103002 
000137 

104432 
004020 



026320 

014004 
026330 
000000 
000012 

026342 

000000 
000024 



016330 
000002 
100204 



002214 



FEB -84 


18; 04 


SEQ 103 






JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 






MOV 


TSSRCR5),R1 


:GET TSSR CONTENTS 






MOV 


0SSR!SC!BIT2,R2 


{SET UP EXPECTED 






CMP 


R1,R2 


{ARE THEY EQUAL 






BEQ 


260* 


iBR, IF OK 






INC 


FATFLG 


; ERROR COUNT 






ERRHRD 


ERRN0.T29RDG, PKTSSR 


{TSSR INCORRECT AFTER 


SPACE REV 
TRAP 
.WORD 
.WORD 
.WORD 


CMD, 

CIERHRD 

131 

T29RDG 

PKTSSR 



260$: CKLOOP 



026356 
000001 

002214 



270$; 
330$: 



002214 
017262 

016536 
023556 



000017 



CKLOOP 
CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



999$ 



163$; 



sLOOP IF SELECTED 



MOV 


T29BFR* 14.R1 


MOV 


R1.R2 


BIS 


*8IT0,R2 


CMP 


R1.R2 


BEQ 


270$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T29RIB,EXPREC 



FATFLG, $15 

999$ 

PC.CKDROP 



JSR 


PC.TSTLQOP 


BCC 


163$ 


JMP 


T29L00P 


EXIT 


TST 



•LOCAL STORAGE 


FOR THIS 


. -<.*1C 


»ei'/7770 


T29PACKET: 




.WORD 


14004 


.WORD 


T29DATA 


.WORD 





.WORD 


10. 


T29DATA; 




.WORD 


T29BFR 


.WORD 





.WORD 


20. 



TRAP 



C$CLP1 



{PICK UP XST3 

jSET UP EXPECTED 

jRIB SHOULD BE SET 

lIS RIB SE7 

{BR, IF RID WAS SET (GOOD) 

{ERROR COUNT 
xTMK NOT SET AFTER READ 



{LOOP 
{LOOP 



IF SELECTED 



IF 



REV 

TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



<<<<<<<<<<< 



SELECTED 

TRAP 
END SUBTEST >>>>>> 
L10042: 

TRAP 
{IS ERROR COUNT AT 25 
;BR, IF LESS THV 4 25 
{TRY TO DROP TH^ UNIT 



{DO WE NEED TO ITERATE TEST 

{BR, IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

{ALL DONE THIS TEST 

TRAP 
.WORD 



C$ERHRD 
132 

T29RIB 
EXPREC 

C$CLP1 

C$CLP1 

C$ESUB 



C$EXIT 
L10036 



{COMMAND PACKET FOR TEST 

tWRili CHARACTERISTICS COMMAND, WITH CVC*1» ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK f T .JE 
{CHARACTERISTICS DATA BLOCi 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



N8 



TEST 1 - HARDWARE TEST 1-8 TES' 
TEST 1: WRITE TAPE MARK RETRY 



MACRO M1113 06-FEB-84 18:04 



554 

555 

556 

557 

558 

559 

561 

563 

564 

565 

566 

567 

568 

572 

573 

574 

575 

576 

5^7 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

59? 

593 

594 

595 

596 

597 

598 

599 

600 

601 

6 02 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 



026336 
026340 
026342 



026430 
026430 
026432 
026434 
026436 

026440 
026440 
026442 
026442 
026444 
026446 



026450 
026450 
026451 
026452 
026454 



026456 
026460 
026462 
026464 
026466 
0264 70 
026472 



000000 
000000 



026430 

100006 
026450 
000000 
000006 



140005 

003116 
000000 
000000 



010 

200 

000000 

000000 



140001 
140401 
141001 
161001 
141401 
161401 
177777 



0264 74 000000 



0264 76 
026500 



026502 
026523 
026630 
026 720 

02676 ' 



oooooo 

000000 



104 
124 
127 
124 

127 



614 027103 

615 027217 



12/ 

1J0 



162 
141 
122 

123 
122 

122 

11/ 



151 
160 
111 
123 

111 





.WORD 





T29DSW; 


.WORD 





T29BFR: 


.BLKW 


25. 



i WRITE SUBSYSTEM MEMORY COMMAND PACKET 
,-<.*10>617777O 



T29PK2 





.WORD 


100006 




.WORD 


T29BF2 




.WORD 







.WORD 


6. 


T29PK3- 








.WORD 


140005 


T29RB: 






T29WB; 


.WORD 


FREE 




.WORD 





T29SZi 


.WORD 
.EVEN 





T29BF2: 






T29BS0: 


.BYTE 


10 


T29BS1; 


.BYTE 


200 


T29S2: 


.WORD 





T29S3: 


.WORD 






.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 



T29RN: 


.WORD 


140001 


T29WDR ; 


.WORD 


140401 


T29C0N: 


. WORD 


141001 




.WORD 


161001 




.WORD 


141401 




.WORD 


161401 




.WORD 


177777 


T29CNT: 


.WORD 





T?9RSZi 


.WORD 






SEQ 104 



{SELECT DRIVE 
} MESSAGE BUFFER 



;WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



;WRITE TAPE MARK RETRY COMMAND, CVC*1 AND ACK 
jADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



jBSELO ARl^ 
jBSEM AREA 
;SEL 2 AREA 
j DATA AREA 



jREAD DATA 

jREAD DATA REVERSE 

;READ PREVIOUS OPP-0 

{READ PREVIOUS OPP-1 

{WRITE TAPE MARK RETRY NEXT OPP-0 

{WRITE TAPE MARK RETRY NEXT OPP-1 

{END OF DATA 



{TAPE RECORD COUNTER STORAGE AREA 



T29DLY: .WORD 
LOCAL TEXT MESSAGES FOR TEST 



{RECORD STORAGE SIZE 
{DELAY COUNTER STORAGE AREA 



AREA 



T290FL 
T29WNG 
T2S*IEF 
T29RDF 
T29RRF 



HI T29RRG 
1^3 T29SC: 



.ASCIZ 'Drive is OFFLINE' 

.ASCIZ ' Tape Position Incorrect. After WRITE ''APE MARK RE'lRV Previous COPP'lV 

.ASCIZ 'WRITE TAPE MARK RETRY, At BOT, Foiled To Set NEK (XSTOV 

.ASCIZ ' TSSR Incorrect After READ DATA Command* 

.ASCIZ 'WRITE Tf?E MARK RETRY Previous C Spac* Reverse. Read Forward) Command f » I led 

.ASCIZ 'WRITE TAPE MARK RETRY Previous C Read Forward. Space Reverse) Command failed 

.ASCI/ 'POSITION (Space Command) f- ailed. TSS^ Not Correct' 



B9 



TEST 

T&ST 



1: 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

6/0 

6/1 

672 



HARDWARE TEST 1-8 TEST 
WRITE TAPE MARK RETRY 



MACRO M1U3 06-FEB-84 18i04 



SEQ 105 



027301 
027351 
027426 
027507 
027562 
027644 
027731 
027776 
030043 
030131 
030227 
030305 
030354 
030427 
030515 
030570 
030677 
030771 
031044 
031136 
031225 
031307 
031371 
031457 
031545 
031643 
031724 
032024 
032117 



032146 
032146 
032152 
032156 
032162 
032166 
032170 
032174 
032200 
032202 
032206 
032210 
032214 
032220 
032226 
032230 
032234 
032236 

032^40 



122 
1?4 
111 
127 
124 
052 
124 
124 
104 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
104 
124 
127 
124 
127 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
02022 7 
0C15/1 
GQQ2Q7 



HI 
123 
154 
122 
123 
052 
123 
141 
141 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 
123 
122 
115 
162 



026320 
140004 
026330 

000012 
026342 

000024 

000000 
000030 

177777 

000000 



102 
123 
154 
HI 
123 
052 
123 
160 
164 
111 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
164 
123 
111 
113 
151 



T29L0R: 

T29W0F; 

T29L0Qt 

T29SSRt 

T29WDEj 

T29WLK: 

T29WRT: 

T29B0T* 

T290TAj 

T29E0T: 

T29TM: 

T29RWN: 

T29*NC: 

T29AM3: 

T290F7: 

T29W00s 

T29UDC* 

T29VCK: 

T296A: 

T29USS: 

T29L0N* 

T29C0P) 

T29PBP? 

T29TRU 

T29NEQ; 

T29R0G: 

T29RIB: 

T29RRN; 

TST29ID: 



» 



.ASCIZ 
, ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



ALERT 



RIB NOT SET AFTER READ REVERSE INTO BOT' 
TSSR Not Correct After Illegal Mod* Bit* Set' 
Illegal Mode Btta. Failed To Set ILC Bit In XSTO' 
WRITE TAPE MARK RETRY COMMANO Not Accepted' 
TSSR Not Correct After SPACE REVERSE DATA Command' 
♦♦♦♦♦TAPE IS WRITE-LOCKED ANO WILL CAUSE ERRORS*****' 
TSSR Not Correct After WRITE Command' 
Tape Not At BOT After REWIND Command' 

Data Written To Tape Not Equal To Data Read From Tap*' 
WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS 
TSSR Not Corract After SPACE REVERSE Into BOT' 
Rewind (POSITION) Command Not Accepted' 
RAM Error, Correct Data Pattern Not In Ram' 
TSSR Init. Failed After WRITE TAPE MARK RETRY COMMAND' 
Drive 7 Select Failed To Set "OFL" In TSSR' 
TSSR Not Correct After WRITE TAPE MARK RETRY DATA 

W*ITE TAPE MARK RETRY DATA 
VCK I.-, Meeeeoe Buffer' 
WRITE I' APE MARK RETRY DATA Comm^o" 
Command Not Accepted (RAM Read)' 
Fulled To Set RLL Bit In XSTO' 
Failed To Set RLS Bit In XSTO* 
Reaidual Byte Count Incorrect After Short Record Read' 
Reading Long Record Failed To Give Tape Statue Alert' 
Data WRITE TAPE MARK RETRY From Tape Not Correct, After SWB-1* 
TSSR Incorrect After RF*0 REVERSE Into Tape Mark' 
WRITE TAPE MARK RETRY At Fint Record, Failed To Set RIB (XST3)' 
TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark* 
•ASCIZ 'Write Tape Mark Retry' 



TSSR Not Correct After 
CVC Set, Didn' « t Reeet 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading Long Record 
Reading Long Record 



Command, 
Command' 



SWB Bit Set' 



iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
i WRITE SUBSYSTEM MEMORY COMMAND 
J 
I - 



T29REST? 



02^342 64 Is 



SAVREG 

MOV 0T29PACKET.R1 

MOV *140004 4 (R1)» 

MOV #T290ATA,(R1)» 

CLR (Rl)» 

MOV •1U..CR1)* 

MOV #T29BFR,(R1)» 

CLR (Rl)» 

MOV *20.,(R1)» 

CLR (Rl)» 

MOV eo,(Rl) 

MOV *24,,R2 

MOV P1777;7,T29BFR(R2) 

TST (R2) 

CMP R2.<?0 

8N£ 64 1 

RTS PC 



jSAVE THE REGISTERS 

I START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK , CVC-1 

lADORESS OF CHARAISTICS DA*A BLOCK 

lEXTENOEO ADORESS 

ISIZE OF DATA BLOCK IN BYTES 

I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

i SELECT DRIVE ZERO (0) 

iNUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUFFfcR 

iNEXT LOCATION 

j CHECK FOR ENO OF LOOP 

jKEfP GOING UNTIL QONE 

iRETURN 



T29RT2* 



M\ l l: t»??g A ?fc.i E SAR*"fl E li? T MACR ° HU13 ° 6 - FFB " M 18i ° 4 



C9 



5EQ 106 



673 
674 
675 
6 76 
677 
676 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 



693 
694 
695 
696 

697 
698 
699 

700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 

712 
717 
718 
719 
720 
721 
722 
723 
724 
7^5 
726 
72/ 
728 
729 
730. 



032240 
032244 
032250 
032254 
032260 
032262 
032266 
032270 
032274 
032276 
032300 
032302 
032302 
032306 
032312 
032316 
032322 
032324 
032330 
032332 
032332 
032332 



032334 
032354 
032334 
032342 
032346 
032352 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



026430 
140006 
026450 

000006 

026450 



026440 
000000 
000000 

000000 



012737 006354 002172 

012700 041231 

004737 016570 

012737 000005 002210 



T29RT3: 



SAVREG 




MOV 


•T29PK2.R1 


MOV 


•140006. (Rl)» 


MOV 


•T29BF2,(R1)» 


CLR 


CR1)» 


MOV 


•6., CRD* 


CLR 


(Rt)» 


MOV 


•T298F2.R1 


CLR 


(Rl)t 


CLR 


CR1) 


RTS 


PC 


SAVREG 




MOV 


•T29PK3.R1 


MOV 


•O.CRD* 


MOV 


oo.crd* 


CLR 


(Rl)» 


MOV 


•O.(Rl) 


RTS 


PC 


ENOTST 





I SAVE THE REGISTERS 

jSTART OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK # CVC"1, 

j ADDRESS OF DATA BLOCK 

jEXTENOED ADDRESS 

,SIZE OF DATA BLOCK IN BYTES 

, POINT TO DATA SEL AREA 



, RE TURN 

,SAVE THE RFGISTERS 
, START Of THE PACKET 
jWRITE SUBSYSTEM MEM. WITH ACK , 
, ADDRESS OF DATA BLOCK 
, EXTENDED ADDRESS 
(SIZE OF DATA BLOCK IN BYTES 
, RETURN 



L 10036 



.SBTTL TEST 2: SKIP TAPE MARKS 



TRAP 



CJETST 



J ♦ 



»THIS TEST VERIFIES PROPER OPERATION 0*" THE SKIP TAPE MARKS 
jFORWARD ANO SKIP TAPE MARKS REVERSE COMMANOS. PROPER OPERATION 
lUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
iSTOP (ESS) ANO ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
»BY THE WRITE CHARACTERISTICS COMMAND, THE TEST CONSISTS OF THE 
iFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN 
iWITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
I AND/OR DOUBLE TAPE MARKS. 
i 

j THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 

i 
i 
i 



BGNTST 

MOV 
MOV 
JSR 
MOV 



•EPRT1.EPRTSW 
•TST30ID.R0 
PC. TSTSETLIP 
05,1 OOPCNT 



T2:t 
jPRIMARY ERROR MESSAGE 
, ASCII MESSAGE TO IDENTIFY TEST 
,00 INITIAL TEST SETUP 
, PERFORM 5 ITERATIONS 



l TEST 2, SUBTEST 1 



iVERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 

i A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 

lIS FIRST REWOLNO, THEN WRITTEN WITH SEVERAL "FILES"! 

jEACH FILE CONSISTS OF A NUMBER OF DATA RF.CORDS 

{FOLLOWED BY A TAPE MARK. THE FINAL, FILE IS 

I TERMINATED BY A DOUBLE TAPE MARK, EACH DATA RECORD 



D9 



fi§i l 2l ^W^h T MA' & TBST MACR0 MlU3 06 - FF - B - fln i*t°* 



SEQ 107 



731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 



749 
750 
751 
752 
753 
754 
755 
756 



757 
758 
759 
763 
764 



765 
766 
767 
768 
769 
7 70 
771 
7 72 
773 
774 
775 
776 



032360 
032360 
032360 
032360 
032362 
032366 
032372 
032376 
032402 
032410 
032414 
032416 
032416 
032422 
032424 
032430 
032432 
032436 
032440 
032444 
032446 
032452 
032454 
032460 
032462 
032462 
032464 
032466 
032470 
032472 
032472 
032500 



104402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000311 
003646 

012114 

013737 
012704 



041252 
036654 
041344 
041406 

176750 036656 
016054 



000250 
002116 
177772 
177756 
036656 
002214 



002174 036520 
036500 



I CONTAINS A TILE NUMBER AND THE RECORD NUMBER WITHIN 

j THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 

I VERIFIED BY READINu THE DATA. THE TAPE IS AGAIN 

» REWOUND ANO A SERIES OF SKIP TAPE MARKS FORWARD 

j COMMANDS ARE ISSUED ANO THE RESULTS (TAPE STATUS ALERT 

l TERMINATION, TMK-1 STATUS, TAPE POSITION VIA READ 

iCOMMANO) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 

jCOMMAND, A WRITE CHARACTERISTICS COMMANO IS ISSUED TO 

iSET UP THE ESS ANO ENB CONTROL BITS. ALL 

iCOMBINATIONS OF ESS AND ENB ARE USED (00,01,10, 

1 11) I OPERATION SHOULD BE THE SAME IN EACH CASE FOR 

j THIS SUBTEST, 

I 



; - 



T3OLO0P: 



10$; 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T30REST 

T30FCN 

PC.T30RT2 

PC.T30RT3 

*65000. .TSODLY 

PC.SOFINIT 

201 

250 



DEC 
BNE 

INC 
MOV 
ERRDF 



T30DLY 

10* 

FATKG 

R0.R1 

ERRNO.SFIERR.SFIMSG 



201 j 



MOV 
MOV 



UNITN,T30DSW 
0T30PACKET.R4 



!>>>>>>>>>>>> 



BEGIN SUBTEST 
T2.1: 

TRAP 



>>>>>>>>>>>> 



I SET COMMAND PACKET 

i CLEAR FILE COLNTER 

I SET UP OTHER COMMANO PACKET 

I SET UP OTHER COMMANO PACKET 

iSET UP DELAY COUNTER 

jDO INITIALIZE ON CONTROLLER 

t BR I? INIT WAS OK 

j DELAY ROUTINE CALL 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

jBUMP COUNTER 

tBR. IF MORE COUNTING TO DO 
lERROR COUNT 

jCONTENTS OF TSSR REGISTER 

jFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

iSET UP UNIT NUMBER 

j SUBROUTINE NEEDS PACKET ADDRESS 



C$BSU6 



025O,(PC)* 



L$DLY,(PC)f 



-6CPC) 

.-4 

-22CPC) 

.-20 



CIERDF 
201 

SFIERR 
SFIMSG 



*+«***++**+*+**** 



i 



ISSUE WRITE CHARACTERISTICS COMMAND 



032504 
032510 



004 757 010742 
103407 



JSR 
BCS 



PC.WRTCHR 
23$ 



I ISSUE WRITE CHARACTERISTICS 
I DR. IF COMMANO ISSUED OK 
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TEST 1 - HARDWARE TEST 1^8 TEST 
TEST 2: SKIP TAPE HARKS 
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777 052512 

781 032516 

782 032520 
032520 
032522 
032524 
032526 

783 032530 
032530 

784 
785 
786 
787 
788 
789 
790 

791 032532 

792 032536 

793 032540 

794 032542 

795 032546 

799 032552 
032552 
032554 
032556 
032560 

800 032562 
032562 

801 
802 
805 
804 
805 
806 
807 

808 032564 

809 032570 

810 032572 

811 032576 

812 032600 

813 032602 

817 032606 
032606 
032610 
032612 
032614 

818 032616 
032616 

819 032620 

820 032626 

821 032632 

822 032640 
823 

824 
«25 
826 
827 



005237 
010001 

104456 
000312 
005052 
012114 

104406 



004737 
103411 
010004 
016501 
005237 

104456 
000313 
040240 
012126 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
0O0314 
040041 
015554 

104406 
012737 
012703 
013737 
012737 



002214 



011074 



000002 
002214 



036530 
000002 

002214 



000001 
000001 
003116 
003720 



231: 



INC FATFLG 

HOV R0.R1 

ERRHRD ERRNO»WRTNSG,SFIMSG 



CKLOOP 



SEQ 108 



I ERROR COUNT 
j SAVE CONTENTS OF TSSR 
IWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



{LOOP IF SELECTED 



TRAP 



j******************6******4**++t+ ************************* 

) ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

I ******************************** * + ********** ************* 

j CALL TAPE REWIND COMMAND 
l BR. IF NO PROBLEM 
{GET PACKET ADDRESS 
iGET STATUS REGISTER 
{ERROR COUNT 
ERRHRD ERRN0.T3ORWN.PKTSSR {REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



30$: 



CKLOOP 



{LOOP IF SELECTED 



TRAP 



!**************+******«*******+*** ********* ****** ********* 

IgET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
:***********************♦*** + ********* + * + ******** + **♦**<,* + 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO, T3OB0T , EXPREC 



40$ 

036654 

64$ 
036622 65$ 
036626 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



C$ERHRD 
202 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


CSERHRD 


.WORD 


203 


.WORD 


T30RWN 


.WORD 


PKTSSR 



C$CLP1 



01 . , T30FCN 
01. R3 

FREE.T30WB 
02000. , T30SZ 



{PICK UP XSTO 

i SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

tBR. IF EQUAL (OK) 

tERROR CUUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHR0 

.WORD 204 
.WORD T30B0T 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP CSCLP1 

j SET "FILE" COUNTER AT l DECIMAL 

{ONE RECORD PER "FILE" 

{SET UP PACKETS' S WRITE BUFFER 

{SET RECORD SIZE AT 2000 BYTES 



,**************************+***++************+**+*****+*+* 
tWRITE OATA.ACK.CVC-I COMMAND 
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HARDWARE TEST 


1-8 TEST MACRO ^ 


TEST 2: 


SKIP TAPE MARKS 


&2& 








829 








830 


032646 


012737 


140005 036620 


831 


032654 


012704 


036620 


832 


032660 


013702 


036654 


833 


032664 


000302 




834 


032666 


010301 




835 


032670 


060201 




836 


032672 


010177 


150220 


837 


032676 


010465 


000000 


838 


032702 


004737 


016330 


839 


C32706 


016501 


000002 


840 


032712 


012702 


000200 


841 


032716 


020102 




842 


032720 


001406 




843 


032722 


005237 


002214 


847 


032726 








032726 


104456 






032730 


000315 






032732 


037170 






032734 


01212G 




848 


032736 








032736 


104406 




849 


032740 


005203 




850 


032742 


020327 


000021 


851 


032746 


001331 




852 








853 








854 








855 








856 








857 








858 








859 


032750 


012737 


141011 036620 


860 


032756 


012704 


036620 


861 


032762 


010465 


000000 


862 


032766 


004737 


016330 


863 


032772 


016501 


000002 


864 


032776 


012702 


000200 


865 


033002 


020102 




866 


033004 


001406 




867 


033006 


005237 


002214 


871 


033012 








033012 


104456 






033014 


000316 






033016 


040362 






033020 


012126 




872 


033022 








033022 


104406 




873 


033024 


005237 


036654 


874 


033030 


023727 


036654 000006 


875 


033036 


001273 




8 76 








877 








878 








879 
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SEQ 109 



}**** * + ****************••* + *********** + +************ + + *** + * 



MOV 


1400ri T30PK3 


MOV 


;T30r,<? # R4 


MOV 


:«^CN,R2 


SWAB 


R2 


MOV 


R3,R1 


ADO 


R2.R1 


MOV 


Rl.SFREE 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


70$ 


INC 


FATFLG 



70$ 



ERRHRD ERRNO , T30WDD , PKTSSR 



CKLOOP 



INC 


R3 


CMP 


R3.021 


BNE 


65$ 



, WRITE 0ATA,ACK,CVC-1 COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

{GET FILE COUNTER 

{MOVE TO UPPER BYTE 

{GET RECORD COUNTER 

{FILE COUNTER IN UPPER, RECORD LOW 

jMOV TO OUT PUT BUFFER 

, ISSUE COMMAND 

{WAIT FOR SSR TO SET 

,GET TSSR CONTENTS 

{SET UP EXPECTED 

,ARE THEY EQUAL 

iBR, IF OK 

j ERROR COUNT 

{ TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 205 
.WORD T30WDD 
.WORO PKTSSR 

,LO0P IF SELECTED 

TRAP C5CLP1 

{COUNT THE RECORD COUNTER DOWN 

{AT 20 YET 

{BR, IF NOT AT 20 RECORDS WRITTEN 



{WRITE TAPE MARK,ACK,CVC-1 COMMAND 

t 



MOV 


0141011, T30PK3 


MOV 


0T3OPK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


160$ 


INC 


FATFLG 



ERRHRD ERRNO , T30WDC , PK TSSR 



160$: CKLOOP 



INC 


T30FCN 


CMP 


T30FCN.06 


BNE 


64$ 



{WRITE TAPE MARK.ACK.CVC-1 COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{PICK UP TSSR 

,SET UP EXPECTED (SSR ONLY) 

{WAS STATUS GOOD 

{ BR, IF TERMINATION WAS GOOD 

{ERROR COUNT 
{TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 
{LOOP IF SELECTED 

TRAP 
{COUNT THE "FILE" COUNTER DOWN 
{WRITE 5 FILE TO TAPE 
jBR, IF NOT AT 5 FILES WRITTEN 



206 
T30WDC 

PKTSSR 

C$CLP1 



{WRITE TAPE MARK.ACK.CVC-1 COMMAND 
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SEQ 110 



881 
882 
885 033040 

884 033046 

885 033052 

886 033056 

887 033062 

888 033066 

889 033072 

890 033074 

891 033076 

895 033102 
033102 
033104 
033106 
033110 

896 033112 
033112 

897 
898 
899 
900 
901 
902 
903 

904 033114 

905 033120 

906 033122 

907 033124 

908 033130 

912 033134 
033134 
033136 
033140 
033142 

913 033144 
033144 

914 
915 
916 
917 
918 
919 
920 
021 033146 

922 033152 

923 033154 

924 033160 

925 033162 

926 033164 
930 033170 

033170 
033172 
033174 
033176 
C J31 033200 
033200 



01273? 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
C00317 
040362 
012126 

104406 



141011 
036620 
000000 
016330 
000002 
000200 



002214 



004737 011074 

103411 

010004 

016501 000002 

005237 002214 

104456 
000320 
040240 
012126 

104406 



013701 036530 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
000321 
040041 
015554 

104406 



j+.**4 + *4******.* + *****************6************************ 



036620 



MOV 


0141011, T30PK3 


MOV 


0T30PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 



ERRHRD ERRNO , T30WDC , PKTSSR 



j WRITE TAPE MARK,ACK,CVC»1 COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

jWAIT FOR SSR TO SET 

i PICK UP TSSR 

{SET UP EXPECTED (SSR ONLY) 

j WAS STATUS GOOD 

j BR, IF TERMINATION WAS GOOD 

j ERROR COUNT 
-,TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 



165$ j CKLOOP 



{LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



}*+*****+♦+*****+*****************+*****+*+***+++*+++++*++ 

I ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

I 

{CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
{GET PACKET ADDRESS 
iGET STATUS REGISTER 
I ERROR COUNT 
{REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


8CS 


170$ 


MOV 


P0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



ERRHRD ERRNO , T30RWN , PKTSSR 



170$ t CKLOOP 



{LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



a******************************************************** 
GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

tPICK UP XSTO 

»SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL (OK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWINO 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


*6IT1,R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 



ERRHRD ERRNO , T30BOT , EXPREC 



207 

T30WDC 

PKTSSR 

C$CLP1 



C$ERHRD 
208 

T30RWN 
PKTSSR 

C$CLP1 



180$: CKLOOP 



C$ERHRD 
209 

T30B0T 
EXPREC 

C$CLP1 
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932 033202 

933 033206 

934 033214 

935 033220 
93b 

937 
938 
939 
940 
941 
942 

943 033224 

944 033230 

945 033232 

949 033236 

950 033240 
033240 
033242 
033244 
033246 

951 033250 

033250 
9 r o 

953 
954 
955 
956 
957 
958 

959 033252 

960 033260 

961 033266 

962 033272 

963 033276 

964 033304 

965 033310 

966 033314 

967 033320 

968 033322 
033322 
033326 
033330 
033334 
033336 
033342 
033344 
033350 

969 033352 

970 033356 

971 035360 

972 033364 

973 033366 

974 053370 
978 033374 

033374 
033376 
033400 



012703 036636 
013737 002174 036520 
011337 036516 

012704 036500 



004737 010742 

103407 

005237 002214 

010001 

104456 
000322 
005052 
012114 

104406 



012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
01372 7 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
00523 7 

104456 
000323 
037114 



MOV <H30IMV,R3 

MOV UNITN.T30DSW 

182$ s MOV CR3),T30ETM 

MOV 0T30PACKET.R4 



SEQ 111 



I SET UP POINTER TO COMMAND TABLE 

{SET UP UNIT NUMBER 

i GET NEXT COMMAND 

{SUBROUTINE NEEDS PACKET ADDRESS 



I *******+******************+*+***+***+***++****++*+*+***++ 

! ISSUE WRITE CHARACTERISTICS COMMAND 

; 

j + + + * + * + A*** + + + + * + -***** ************************** ********* 



JSR 


PC.WRTCHR 


BCS 


188$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRO 


ERRNO.WRTMSG.SFIMSG 



{ISSUE WRITE CHARACTERISTICS 

tBR, IF COMMANO ISSUED OK 
{ERROR COUNT 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



188$ 



CKLOOP 



sLOOP IF SELECTED 



TRAP 



CJERHRD 
210 

WRTMSG 
SFIMSG 

CiCLPl 



;*************************+****+++*********************+++ 

{SKIP TAPE MARK,ACK,CVC-1 COMMAND 
1***********4****+***+****+******************************* 



141010 036620 

0OO001 036622 

036620 

OOOOOO 

176750 036656 

016330 

0OO002 

000200 



000250 
002116 
177772 
177756 
036656 
000200 

002214 



189$: 
190$: 



MOV <M41010, T30PK3 

MOV 41.T30RB 

MOV «T30PK3,R4 

MOV R4.TSDBCR5) 

MOV *65000. .T30CLY 

JSR PC.WAITF 

MOV TSSRCR5),R1 

BIT #SSR,R1 

BNE 191$ 

DELAY 250 



»SKIP TAPE MARK,ACK»CVC-1 COMMAND 

{SET UP NUMBER TO SKIP 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

;SET UP DELAY COUNTER 

{WAIT FOR SSR TO SET 

{PICK UP TSSR 

lIS SSR SET YET 

iBR> IF SSR IS SET 

{CALL DELAY ROUTINE 



MOV 


#250. (PC)* 


.WORD 





MOV 


L$DLY,CPC)» 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 



191$: 



DEC 


T30DLY 


BNE 


190$ 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


192$ 


INC 


FATFLG 


ERRHRD 


SRRNO.T30SKM.PKTSSR 



{BUMP DELAY ROUTINE 

tBR. IF MORE DELAY TO GO 

{SET UP EXPECTED (SSR ONLY) 

{WAS STATUS GOOD 

i BR, IF TERMINATION UAS GOOD 
{ERROR COUNT 

{TSSR NOT CORRECT AFTER SKIP TAPE M. 

TRAP C$ERHPD 
.WORD ?11 
.WORD T30SKM 
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TEST 2: 
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033402 


012126 




979 


033404 








033404 


104406 




980 








961 








982 








983 








984 








985 








986 








987 


033406 


013701 


036530 


988 


033412 


010102 




989 


033414 


052702 


100000 


990 


033420 


020102 




991 


033422 


001406 




992 


033424 


005237 


002214 


996 


033430 








033430 


104456 






033432 


000354 






033434 


040514 






033436 


015554 




997 


033440 








033440 


104406 




998 


033442 


012700 


177777 


999 


033446 


004737 


017502 


1000 


033452 


013737 


003116 036622 


1001 








1002 








1003 








1004 








1005 








1006 








1007 








1008 


033460 


012737 


140001 036620 


1009 


033466 


012704 


036620 


1010 


033472 


012737 


003720 036626 


1011 


033500 


010465 


oooooo 


1012 


033504 


004737 


016330 


1013 


033510 


016501 


000002 


1014 


033514 


012702 


000200 


1015 


033520 


020102 




1016 


033522 


001406 




1017 


035524 


005237 


002214 


1021 


033530 








033530 


104456 






033532 


000325 






033534 


037413 






033536 


012126 




1022 


033540 








033540 


104406 




1023 


033542 


017701 


147350 


1024 


033546 


012 702 


177777 


1025 


033552 


020102 




1026 


0335S4 


00 1006 




1027 


033556 


005237 


002214 


1031 


033562 
033562 


104456 
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192$ { CKLOOP 



SEQ 112 



{LOOP IF SELECTED 



.wowr; PKTSSR 
TRAP C$CLP1 



++*********+********+************************************ 
GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

********************************************************* 



MOV 


T30BFR*6.R1 


MOV 


R1.R2 


BIS 


*eiT15,R2 


CMP 


R1.R2 


BEQ 


195$ 


INC 


FATFLG 



ERRHRD ERRNO , T 30TMK , EXPREC 



195$ 



CKLOOP 

MOV 
JSR 
MOV 



* 3.77777, RO 

PC,FILLMEM 
FREE.T30RB 



(PICK UP XSTO 

j SET UP EXPECTED 

,SET TMK BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL COK) 

I ERROR COUNT 
iTMK NOT SET AFTER URT TAPE MARK 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 
lLOOP IF SELECTED 

TRAP 
{VALUE TO WRITTEN TO MEMORY 
iFILL MEM WITH ALL ONES 
{STARTING READ BUFFER ADDRESS 



212 

T30TMK 

EXPREC 

C$CLP1 



f ********************************************************* 
IreAD FORWARD, ACK.CVC-1 COMMANO 

i 

; ********************************************************* 



MOV #140001 .T30PK3 

MOV 0T3OPK3.R4 

MOV *20OO.,T30SZ 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV 0SSR.R2 

CMP R1.R2 

BEQ 200$ 

INC FATFLG 

ERRHRD ERRNO , T30RDF ,PK TSSR 



j READ FORWARD, ACK,CVC-1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
I ISSUE COMMANO 
lUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
{SET UP EXPECTED 
jARE THEY EQUAL 
jBR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 



200$ 







TRAP 


C$ERHRD 






.WORD 


213 






.WORD 


T30RDF 






.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


SFREE.R1 


{FIRST LOC IN READ BUFFER 




MOV 


*177777,R2 


{EXPECTED IF NO DATA TRANS. 




CMP 


R1.R2 


{DID ANY DATA GET TRANSFERRED 




BNE 


220$ 


{BR, IF NO DATA TRANS ( GOOD ) 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRNO, T30DTR.EXPREC 


{DATA TRANSFERRED ON READ TAPE 


MAR:< 






TRAP 


C$E.RHRD 
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033564 


000326 






033566 


041070 






033570 


015554 




1032 


033572 








033572 


104406 




1033 


033574 


012702 


001001 


1034 


033600 


017701 


147312 


1035 


033604 


020201 




1036 


033606 


001406 




1037 


033610 


005237 


002214 


1041 


033614 








033614 


104456 






033616 


000327 






033620 


037242 






033622 


015554 




1042 


033624 








033624 


104406 




1043 








1044 








1045 








1046 








104 7 








1048 








1049 








1050 


033626 


004737 


011074 


1051 


033632 


103411 




1052 


033634 


010004 




1053 


033636 


016501 


000002 


1054 


033642 


005237 


002214 


1058 


033646 








033646 


104456 






033650 


000330 






033652 


0402*0 






033654 


012126 




1059 


033656 








033656 


104406 




1060 








1061 








1062 








.1 063 








1064 








1065 








1066 








1067 


033660 


013701 


036530 


1068 


033664 


010102 




1069 


033666 


052702 


000002 


1070 


033672 


020102 




1071 


033674 


001406 




1072 


033676 


005237 


002214 


1076 


033702 








033702 


104456 






033704 


000331 






033706 


040041 






033 '. N 


015554 




1077 


033 \y. 








033 ■■: 


104406 




1078 


033/i4 


005723 





220$ 



CKLOOP 



MOV 


01001, R2 


MOV 


SFREE,R1 


CMP 


R2.R1 


BEQ 


228$ 


INC 


FATFLG 



228$ 



ERRHRD ERRNO, T30PTB , EXPREC 



CKLOOP 



SEQ 113 



.WORD 214 
.WORD T30DTR 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

j SET UP RECORD NUMBER EXPECTED (FILE 2) 

iGET INFO FROM BUFFER 

{ARE THEY EQUAL 

j BR, IF EQUAL C OK ) 

, ERROR COUNT 

{RECORD POSITION WAS NOT CORRECT 

TRAP C$ERHRD 



{LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



********************************************************* 

ISSUE A F c WINO TO TAPE DRIVE AND WAIT FOR SSR TO SET 

********************************************************* 

{CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
iSAVE PACKET ADDRESS 
{GET TSSR STATUS 

{ERROR COUNT 
ERRHRD ERRNO, T30RWN,PKTSSR {REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


230$ , 


MOV 


R0.R4 


MOV 


TSSRCR5),R1 


INC 


FATFLG 



230*: CKLOOP 



{LOOP IF SELECTED 



TRAP 



j *********************************** v + ******************** 

JGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

j ********************************************************* 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL COK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
240$: CKLOOP {LOOP IF SELECTED 

TRAP 
TST CR3)» {POINT TO NEXT POSITION 



MOV 


T30BFRf6 : Rl 


MOV 


R1.R2 


BIS 


*6IT1,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 



ERRHRD ERRNO, T3OB0T, EXPREC 



215 

T30PTB 

EXPREC 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


216 


.WORD 


T30RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
217 

T30B0T 
EXPREC 

C$CLP1 



I<9 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 2: SKIP TAPE MARKS 



06-FEB-84 18;04 



1079 033716 


011301 




1080 033720 


020127 


177777 


1081 033724 


001402 




1082 033726 


000137 


033214 


1083 033732 






033732 


104406 




1084 033734 






033734 






033734 


104403 




1085 033736 


023727 


002214 00003 7 


1086 033744 


103402 




1087 033746 


004737 


017262 


1068 033752 






1089 






1090 






3.091 






1092 






1093 






1094 






1095 






1096 






1097 






1098 






1099 






1100 






1101 






1102 033752 






033752 






033752 


104402 




1103 033754 


004737 


041252 


1104 033760 


00503 7 


036654 


1105 033764 


004737 


041344 


1106 033770 


004737 


041406 


1107 033774 


012737 


176750 036656 


1108 034002 


004 737 


016054 


1109 034006 


103426 




1110 034010 






034010 


012727 


000250 


034014 


000000 




034016 


013727 


002116 


034022 


000000 




034024 


005367 


177772 


034030 


001375 




034032 


005367 


177756 


034036 


001367 




1111 034040 


005337 


036656 


1112 034044 


001356 




1113 034046 


005237 


002214 


1117 034052 


010001 




1118 034054 






034054 


104455 




034056 


000332 




034060 


003646 




034062 


012114 




1119 034064 






1120 034064 


013737 


002174 036520 


1121 034072 


012704 


036500 



330$; 



MOV 


CR3),R1 


CMP 


Rl, 0177777 


BEQ 


330$ 


JMP 


182$ 


CKLOOP 





999$ 



ENDSUB 



CMP 

BLO 
JSR 



FATFLG.015 

999$ 

PC.CKDROP 



SEQ 114 



I GET NEXT COMMAND ETC. 
i END OF TABLE MARKER 
f BR, IF AT END OF TABLE 
{JUMP TO MORE COMMANDS TO DO 
,LOOP IF SELECTED 

TRAP C<CLP1 
;<<<<<<<<<<< END SUBTEST >>>>>.>>*>->> 

L10044; 

TRAP *,:*£SUP 
iIS ERROR COUNT AT 25 
-.BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



TEST 2. SUBTEST 2 

VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 
MARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
OF 2,3,8,64,256, AND 512 ARE TESTED. THE 
TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1, 



J - 



BGNSUB 



10$ s 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC,T30RT2 


JSR 


PC.T30RT3 


MOV 


♦65000, ,T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T30DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$ t 



MOV UNITN.T30DSW 
MOV 4T30PACKET.R4 



.*>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.2: 

TRAP C$BSUB 
i SET COMMAND PACKET 
{CLEAR FILE COUNTER 
j SET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 
;SET UP DELAY COWTER 
jDO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
j DELAY ROUTINE CALL 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 
iBUMP COUNTER 
{BR, IF MORE COUNTING TO DO 

{ERROR COUNT 
{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 218 
.WORD SFIERR 
.WORD SFIM5G 

{SET UP UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 



♦250. (PC)* 


L$DLY,CPC)f 



-6CPC) 

. -4 

-22CPC) 

,-20 



L9 



TEST 1 - HARDWA 


RE TEST 


1-8 TES' 


TEST 2: SKIP TAPE MARKS 


1122 






1123 






1124 






1125 






1126 






1127 






1128 






1129 034076 


004737 


010742 


1130 034102 


103407 




1131 034104 


005237 


002214 


1135 034110 


010001 




1136 034112 






034112 


1C4456 




034114 


000333 




034116 


005052 




034120 


012114 




1137 034122 






034122 


104406 




1138 






1139 






1140 






1141 






1142 






1143 






1144 






1145 034124 


004737 


011074 


1146 034130 


103411 




1147 034132 


010004 




114H 034134 


016501 


000002 


1149 034140 


005237 


002214 


1153 034144 






034144 


104456 




034146 


000334 




034150 


040240 




034152 


012126 




1154 034154 






034154 


104406 




1155 






1156 






1157 






1158 






1159 






1160 






1161 






1162 034156 


013701 


036530 


1163 034162 


010102 




1164 034164 


052702 


000002 


1165 034170 


020102 




1166 034172 


001406 




1167 034174 


005237 


002214 


1171 034200 






034200 


104456 




034202 


000335 




034204 


040041 




034206 


015554 




1172 034210 






034210 


104406 
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SEQ 115 



********************************************************* 

ISSUE WRITE CHARACTERISTICS COMMAND 

******************************** ************************* 



23$: 



JSR PC.WRTCHR 

BCS 23* 

INC FATFLG 

MOV R0.R1 

ERRHRD ERRNO.WRTMSG.SFIKSG 



CKLOOP 



{ISSUE WRITE CHARACTERISTICS 

{BR, IF COMMAND ISSUED OK 
{ERROR COUNT 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.UORD 
.UORD 
.WORD 



{LOOP IF SELECTED 



TRAP 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

********************* ******************** **************** 

{CALL TAPE REWIND COMMAND 
{BU, IF NO PROBLEM 
sGET PACKET ADDRESS 
{GET STATUS REGISTER 
{ERROR COUNT 
{REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSRCR5).R1 


INC 


FATFLG 



30$: 



ERRHRD ERRNQ.T30RWN.PKTSSR 



CKLOOP 



{LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



********************************************************* 
GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

********************************************************* 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

}BR, IF EQUAL COK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP {LOOP IF SELECTED 

TRAP 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


08IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T30B0T , EXPREC 



C*ERHRD 
219 

WRTM5G 
SFIMSG 

C$CLP1 



CJERHRD 
220 

T30RWN 
PKTSSR 

C$CLP1 



CiERHRD 
221 

T30B0T 
EXPREC 

C$CLP1 
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11/3 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1201 



1202 

1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1225 



1226 



034212 
034220 
034224 
034232 



034240 
034246 
034252 
034256 
034260 
034262 
034264 
034270 
034274 
034300 
034304 
034310 
034312 
034314 
034320 
034320 
0343"? 
034324 
034326 
034330 
034330 
034332 
034334 
034340 



034 342 
034 350 
034354 
034360 
034364 
034370 
034374 
034376 
034400 
034404 
034404 
034406 
034410 
034412 
03<414 



012737 000001 036654 

012703 000001 

013737 003116 036622 

012737 000024 036626 



012737 
012704 
013702 
000302 
010301 
060201 
010177 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000336 
037170 
012126 

104406 
005203 
020327 
001331 



002214 



000021 





MOV 


01, , T30FCN 


64$: 


MOV 


01,R3 


65$: 


MOV 


FREE,T30WB 




MOV 


420, .T30SZ 



SEQ 116 



i SET "FILE 1 ' COUNTER AT 1 DECIMAL 

I ONE RECORD PER "FILE" 

{SET UP PACKETS' S WRITE BUFFER 

iSET RECORD SIZE AT 2000 BYTES 



******** a****.********************************************* 

IWRITE DATA.ACK.CVC-1 COMMAND 

i 

. ******************* ** **+******+***+************+********* 



140005 036620 

036620 

036654 



146626 
000000 
016330 
000002 
000200 



MOV 


0140005, T30PK3 


MOV 


OT30PK3.R4 


MOV 


T30FCN.R2 


SWAB 


R2 


MOV 


R3.R1 


ADD 


R2,R1 


MOV 


R1.8FREE 


MOV 


R4.TSDBCR5) 


JSR 


PC.WIAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


70$ 


INC 


FATFLG 



70$: 



ERRHRD ERRNO , T30WDD , PKTSSR 



CKLOOP 



INC 


R3 


CMP 


R3.021 


BNE 


65$ 



iWRITE OATA.ACK.CVC-l COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

{GET FILE COUNTER 

{MOVE TO UPPER BYTE 

{GET RECORD COUNTER 

j FILE COUNTER IN UPPER, RECORD LOW 

j MOV TO OUT PUT BUFFER 

j ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR. IF OK 

; ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 222 
.WORD T30WDD 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{COUNT THE RECORD COUNTER DOWN 

{AT 20 YET 

;BR, IF NOT AT 20 RECORDS WRITTEN 



* + ******** + ***** + * + ** + ** + **+. \ **************************** 

WRITE TAPE MARK.ACK.CVC-1 COMMAND 
********************************************************* 



012737 141011 036620 

012704 036620 

010165 000000 

004737 016330 

016501 000002 

012702 000200 

020102 

001406 

005237 002214 

104456 
000337 
0403<>2 
012126 



MOV 


0141011, T30PK3 


MOV 


OT30PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 



160$ 



ERRHRD ERRNO , T30WDC t PKTSSR 



CKLOOP 



{WRITE TAPE MARK.ACK.CVC-1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

jWAIT FOR SSR TO SET 

{PICK UP TSSR 

jSET UP EXPECTED (SSR ONLY) 

{WAS STATUS GCOD 

jBR, IF TERMINATION WAS GOOD 
, ERROR COUNT 

j TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 
.WORD 223 
.WORD T30WDC 
.WORD PKTSSR 

{LOOP IF SELECTED 
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034414 


104406 




1227 


034416 


005237 


036654 


1228 


034422 


023727 


036654 


1229 


034430 


001273 




1230 








1231 








1232 








1233 








1234 








1235 








1236 








1237 


034432 


012737 


141011 


1238 


034440 


012704 


036620 


1239 


034444 


010465 


000000 


1240 


034450 


004737 


016330 


1241 


034454 


016501 


000002 


1242 


034460 


012702 


000200 


1243 


034464 


020102 




1244 


034466 


001406 




1245 


034470 


0052b7 


002214 


1249 


034474 








034474 


104456 






034476 


000340 






034500 


040362 






034502 


012126 




1250 


034504 








034504 


104406 




1251 








1252 








1253 








1254 








1255 








1256 








1257 








1258 


034506 


004737 


011074 


1259 


0*4512 


103411 




1260 


034514 


010004 




1261 


034516 


016501 


000002 


1262 


034522 


005237 


002214 


1266 


034526 








034526 


104456 






034530 


000341 






034532 


040240 






034534 


012126 




1267 


034536 








054536 


104406 




1268 








1269 








1270 








1271 








1272 








1273 








1274 








1275 


034540 


013701 


036530 


1276 


034544 


010102 




127 7 


034546 


052 702 


000002 


1278 


034552 


020102 
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000031 



INC 


T30FCN 


CMP 


T30FCN,#25. 


BNE 


64$ 



SEQ 117 



TRAP C$CLPl 
{COUNT THE "FILE" COUNTER DOWN 
{WRITE 25 FILES TO TAPE 
iBR, IF NOT AT 25 FILES WRITTEN 



• if******************************************************* 

WRITE TAPE MARK.ACK.CVC-1 COMMAND 
♦♦♦•♦A*************************************************** 



036620 



MOV 


0141011, T30PK3 


MOV 


*T30PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 



165$: 



ERRHRD ERRNO , T30WDC , PKTSSR 



CKLOOP 



{WRITE TAPE MARK.ACK.CVOl COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

{WAIT FOR S3R TO SET 

{PICK UP TSSR 

{SET UP EXPECTED CSSR ONLY) 

{WAS STATUS GOOD 

}BR, IF TERMINATION WAS GOOD 

{ERROR COUNT 
5 TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 



sLOOP IF SELECTED 



.WORD 
.WORD 

.WORD 

TRAP 



eld** 

T30WDC 
PKTSSR 

C$CLP1 



ISSUE P REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

*+****+******++*******.**+*+ + + *++++**++***** + * + ******* + ** + 

{CALL TAPE REWIND COMMAND 
{BR. IF NO PROBLEM 
tGET PACKET ADDRESS 
{GET STATUS REGIST£R 
{ERROR COUNT 
ERRHRD ERRNO, T30RWN, PKTSSR {REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


170$ 


MOV 


H0.R4 


MOV 


TSSRCR5),R1 


INC 


FATFLG 



TRAP 


C$ERHRD 


.WORD 


225 


.WORD 


T30RWN 


.WORD 


PKTSSR 



170$; 



CKLOOP 



;LOOP IF SELECTED 



TRAP 



C$CLP1 



GET EXTENDED STATUS REGISTER 2ER0 (XSTO) FROM MESSAGE BUFFER 



MOV T30BFR*6,R1 

MOV R1.P2 

BIS 06IT1.R2 

CMP R1.R2 



{PICK UP XSTO 

{SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

{DOES EXP « REC'D 



BIO 



TEST 
TEST 



HARDWARE TEST 1 
SKIP TAPE MARKS 
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1279 
1280 
1284 



1285 

1286 
1287 
1288 
1289 
1290 
1291 
1292 
1295 
1294 
129b 
1296 
1297 
1298 
1299 
1300 
1304 
1305 



1306 

1307 
1306 
1309 
1310 
1311 
1312 
3313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 



034554 
034556 
034562 
034562 
034564 
034566 
034570 
034572 
034572 
034574 
034602 
034606 
034614 
034620 



034624 
034630 
034632 
034636 
034640 
034640 
034642 
054644 
034646 
034650 
034650 



034652 
034660 
034666 
034672 
034676 
034704 
034710 
034714 
034720 
034 722 
034722 
034 726 
034730 
034734 
034 736 
034742 
034/44 
034 750 



001406 
005237 

104456 
0O0342 
040041 
015554 

104406 
012737 
012703 
013737 
011337 
012704 



004737 
103407 
005237 
010001 

104456 
000343 
005052 
012114 

104406 



012737 
013737 
012704 
010465 
012737 
004737 
016*01 
032701 
001017 

012727 
OOOOOO 

013727 
OOOOOO 
005367 

001375 
00536 7 
001367 



002214 



000002 
036636 
002174 
036516 
036500 



010742 
002214 



1410)0 
036654 

0366tC 
OOOOOO 
176750 
016330 
000002 
000200 



000250 
002116 

177772 
177756 



BEQ 1801 

INC FATFLG 

ERRHRD ERRNO , T30B0T . EXPREC 



036654 
036520 



180*5 CKLOOP 

MOV 
MOV 
MOV 
182$: MOV 
MOV 



♦2.130FCN 

•T30IMV.R3 

UN.TTN.T300SW 

CR3),T30ETM 

0T30PACKET.R4 



SEQ 118 



l BR, IF EQUAL (OK) 

I ERROR COUNT 

I TAPE NOT AT BOT AFTER REMIND 

TRAP 
.WORD 
.WORD 
.WORD 

jL.OOP IF SELECTED 

TRAP 

i SET TO NUMBER OF SKIP "FILES" 

I SET UP POINTER TO COHMANO TABLE 

iSET UP UNIT NUMBER 

iGET NEXT COMMANO 

I SUBROUTINE NEEDS PACKET ADDRESS 



CIERHRD 
226 

T3060T 
EXPREC 

CICLP1 



!**#*****#*************#* ************** ******************* 

i ISSUE WRITE CHARACTERISTICS COMMANO 

i 
j**********«************«**«*************««*«**««««*«»««*# 



JSR PC.WRTCHR 

BCS 1881 

INC FA1FLG 

MOV R0.R1 

ERRHRD ERRNO, WRTMSG.SFIMSG 



1881: CKLOOP 



l ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMANO ISSUED OK 

l ERROR COINT 
iSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC 



lLOOP IF SELECTED 



FAILED 




TRAP 


CIERHRD 


.WORD 


227 


.WORD 


WRTMSG 


.WORD 


SFIM5G 



TRAP 



CtCLPl 



I SKIP TAPE MARK.ACK.CVC-1 COMMANO 

i 

j *♦***«+**»«*«***•«*«•»«*««*«•««****♦**♦••* •««*♦»****«**** 



CV-620 



** >6?2 



v 



036656 



MOV #141010, T30PK3 

MOV T30FCN,T30RB 

MOV #T30PK3.R4 

1891: MOV R4,TSDB(R5) 

MOV #65000,,T300Lt 

190${ JSR PC.WAITF 

MOV TSSR(R5) t Rl 

BIT #SSR t Rl 

BNE 191 J 

DELAY 250 



,SKIP TAPE MARK,ACK,CVC-1 
jSET UP NUMBER TO SKIP 
iSET UP R4 WITH PACKET 
j ISSUE COMMAND 
iSET UP OELAt COUNTER 
»WAIT FOR SSR TO SET 
jPlCK UP TSSR 
»IS SSR SET UT 

IS SET 
ROUTINE 



COMMANO 



ADDRESS 



j BR, V SSR 
iCALL DLL At 



MOV 


•250 . { PC ^ ♦ 


.WORD 





MOV 


LILU i ,lPCU 


.WORD 





DEC 


■61 PCI 


BNf 


. 4 


DtC 


vVlPO 


BNE 


,20 



CIO 



lit! 



\ l 2.: »W&A^ d TtST MACRO f 


1324 034752 


005337 


036656 


1335 034 756 


001352 




1326 034760 


012702 


000200 


1327 034764 


020102 




1328 034766 


001406 




1329 034770 


005237 


002214 


1333 034774 






034 774 


104456 




034776 


000 3* 4 




035000 


037114 




035002 


012126 




1334 035004 






035004 


104406 




1335 






1336 






1337 






1338 






1339 






1340 






1341 






1342 035006 


013701 


036530 


1343 035012 


010102 




1344 035014 


052702 


100000 


1345 035020 


020102 




1346 035022 


001406 




134 7 035024 


005237 


002214 


1351 035030 






035030 


104456 




035032 


000345 




035034 


040514 




035036 


015554 




1352 035040 






035040 


104406 




1353 035042 


012700 


177777 


1354 035046 


004737 


01 750. 1 


1355 035052 


013737 


003116 036622 


1356 






1357 






1358 






1359 






1360 






1363 






1362 






1363 035060 


012737 


140O01 036620 


1364 035066 


012704 


036620 


1365 035072 


012737 


0OOO24 036626 


1366 035100 


010465 


000000 


1367 035104 


00473/ 


016330 


1368 035110 


016501 


000002 


1369 035114 


012702 


000200 


1370 035120 


020102 




13/1 035122 


001406 




1372 035124 


005237 


002214 


X376 035130 






035130 


104456 




035132 


000346 




035134 


037413 





M1113 06 -FEB -64 18:04 



1915; 



SEQ 119 



DEC 


T30DI.Y 


(BUM 


BNF. 


1901 


(BR, 


MOV 


0SSR.R2 


(SET 


CMP 


R1.R2 


(WAS 


BEQ 


192* 


(BR, 


INC 


FATFLG 




ERRHRD 


ERRN0.T30SKM.PKTSSR 


iTSS 



192* j CKLOOP 



» DELAY ROUTINE 
IF MORE DELAY TO GO 
UP EXPECTED (5SR ONLY) 
STATUS GOOD 
IF TERMINATION WAS GOOD 

, ERROR COUNT 
\ NOT CORRECT AFTER SKIP 

TRAP 
.WORD 
.WORD 
.WORD 



(LOOP IF SELECTED 



TRAP 



TAPE M. 

CIERHRD 
228 

T30SKM 
PKTSSR 

CICLP1 



(GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

J 
j********************************************************* 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


♦8IU5.R? 


CMP 


R1.R2 


BEQ 


1951 


INC 


FATFLG 



ERRHRD ERRN0 f T30TMK,EXPREC 



195$ j CKLOOP 

MOV 
JSR 
MOV 



0177777, RO 
PCFILLMEM 
FREE.T30RB 



(PICK UP XSTO 

(SET UP EXPECTED 

jSET TMK BIT IN EXPECTED 

(DOES EXP • REC'D 

(BR, IF EQUAL C OK ) 

(ERROR COUNT 

j TMK NOT SET AFTER WRT TAPE MARK 

TRAP 
.WORD 
.WORD 
WORD 

(LOOP IF SELECTED 

TRAP 

tVALUE TO WRITTEN TO MEMORY 

(FILL MEM WITH ALL ONES 

j STARTING READ BUFFER ADDRESS 



C$ERHRD 
229 
T30TMK 
EXPREC 

CICLP1 



I******************************. 
(READ FORWARD, ACK.CVC-1 COMMAND 



1*4; 



MOV 


0140001, T30PK3 


(READ FORWARD, ACK.CVC-l COMMANO 


MOV 


OT30PK3.R4 




(SET UP R4 WITH PACKET ADDRESS 


MOV 


020, .T30SZ 




(SET UP RECORD SIZE IN PACKET 


MOV 


R4,TSD8(R5) 




(ISSUE COMMAND 


JSR 


PC.WAITF 




,WAIT FOR SSR TO SET 


MOV 


TSSR(R5),R1 




(GET TSSR CONTENTS 


MOV 


0SSR.R2 




,SET UP EXPECTED 


CMP 


RI.R2 




,ARE THEY EQUAL 


BEQ 


200$ 




(BR, IF OK 


INC 


r ATFLG 




i ERROR COUNT 


ERRHRD 


ERRNQ,T3QRDF 


.PKTSSR 


I TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHKO 
. WORD P30 
.WORD T30RD^ 



DIG 



TEST L - HARDWARE. TEST 1-8 TEST 
TtST 2: SKIP TAPE MARKS 



MACRO MIU3 06-FEB-84 18}04 



SEQ 120 



1377 

1378 
1379 
1380 
1381 
138? 
1386 



1387 

1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1399 



140C 

1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1416 



1417 

1418 
1419 

1420 
1421 
1422 
1423 
1424 
1425 



035136 
035140 
035140 
035142 
035146 
035152 
035154 
035156 
035162 
035162 
035164 
035166 
035170 
035172 
035172 
035174 
035200 
035202 
035204 
035210 
035214 
035216 
035220 
035224 
035224 
035226 
035230 
035232 
035234 
035234 



012126 

104406 
017701 
012702 
020102 
001006 
005237 

104456 
000347 
041070 
015554 

104406 
013702 
005202 
000302 
052702 
017701 
020201 
001406 
005237 

104456 
000350 
037242 
015554 

104406 



200$ 



CKLOOP 



035236 
035242 
035244 
035246 
035252 
035256 
035256 
035260 
035262 
035264 
035266 
035266 



004737 
103411 
010004 
016501 
005237 

104456 
000351 
040240 
012126 

104406 



145750 
177777 



002214 



036654 



000001 
145702 



002214 



011074 



000002 
002214 



MOV 


SFREE.R1 


MOV 


0177777.R2 


CMP 


R1.R2 


BNE 


2201 


INC 


FATriG 



220$ 



ERRHRD ERRNO , T300TR , EXPREC 



CKLOOP 



MOV 


T30FCN.R2 


INC 


R2 


SWAB 


R2 


BIS 


OBIT0.R2 


MOV 


SFREE.R1 


CMP 


R2.R1 


BEQ 


2281 


INC 


FATFLG 



223$ 



ERRHRO ERRNO, T3QPTB, EXPREC 



CKLOOP 





.WORD 


PKTSSR 


lLOOP IF SELECTED 








TRAP 


C$CLP1 


j FIRST LOC IN READ BUFFER 




lEXPECTED IF NO OATA 


TRANS. 




iDID ANY DATA GET TRANSFERRED 




jBR, IF NO OATA TRANS 


i (GuOD) 




, ERROR COUNT 






jDATA TRANSFERRED ON 


READ TAPE 


MARK 




TRAP 


CIERHRD 




.WORD 


231 




.WORD 


T30DTR 




.WORD 


EXPREC 


jLOOP IF SELECTED 








TRAP 


CICLP1 


»GET NUMBER OF SKIPS 






iSET TO CORRECT FILE 


VALUE 




iSWAP BYTE HALVES 






{ SET FOR RECORD *1 






1 GET INFO FROM BUFFER 




»ARE THEY EQUAL 






»BR, IF EQUAL (OK) 






lERROR COUNT 






jRECQRD POSITION WAS 


NOT CORRECT 




TRAP 


CIERHRD 




.WORD 


232 




.WORD 


T30PTB 




.WORD 


EXPREC 



jLOOP IF SELECTED 



TRAP 



CICLP1 



t ********************************************************* 

i ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR GSR TO SET 

i 

I ********************************************************* 

j CALL TAPE REUIND COMMAND 
I BR, IF NO PROBLEM 
iSAVE PACKET ADDRESS 
iGET TSSR STATUS 

t ERROR COUNT 
iREWINO NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


230$ 


MOV 


R0.R4 


MOV 


TSSRCR5).R1 


INC 


FATFLG 



230$ 



ERRHRD ERRNO, T30RWN, PKTSSR 



CKLOOP 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
233 
T30RWN 
PKTSSR 

CSCLP1 



035270 013701 036530 



j ********************************************************* 

jGET EXTENDED STATUS REGISTER /FRO CXSTO) FROM MESSAGE BUFFER 

i 
{******************«*****************************»*«*+***+ 

MOV T30BFR*6,R1 |PICK UP XSTO 



E10 



TEST 
TEST 



1426 
1427 
1428 
1429 
1430 
1434 



1435 

1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 

1446 



1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 



1467 
1468 
1469 
1470 

1471 
14 72 
1473 
1474 



HARDWARE TEST 1-8 
SKIP TAPE MARKS 



TEST MACRO M1113 06- FEB -84 18:04 



035274 
035276 
035302 
035304 
035306 
035312 
035512 
035314 
035316 
035320 
035322 
035322 
035324 
035326 
035330 
035334 
035336 
035342 
035344 
035346 
035352 
035356 
035356 
035360 
035360 
035360 
035362 
035370 
035372 
035376 



035376 
035376 
035376 
035400 
035404 
035410 
035414 
035420 
035426 
035432 
035434 
035434 



010102 
052702 
020102 
001406 
005237 

104456 
000352 
040041 
015554 

104406 
005723 
011301 
020127 
001410 
013701 
0O0241 
006101 
010137 
000137 

104406 



104403 
023727 
103402 
004737 



104402 
004737 
005037 
004 737 
004737 
012737 
004737 
103426 



000002 
002214 



MOV 


R1.R2 


BIS 


«BIT1,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T30B0T,EXPREC 



240$ t CKLOOP 



SEQ 121 



iSET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

I DOES EXP * REC'D 

j BR, IF EQUAL COK) 

l ERROR COUNT 
j TAPE NOT AT BOT AFTER 



jLOOP IF SELECTED 



REWIND 




TRAP 


C$ERHRD 


.WORD 


234 


.WORD 


T30B0T 


.WORD 


EXPREC 



TRAP 



CSCLP1 



177777 
036654 



036654 
034614 



330$: 



TST 


(R3)* 


MOV 


CR3),R1 


CMP 


Rl. 0177777 


BEQ 


330$ 


MOV 


T30FCN t RX 


CLC 




ROL 


Rl 


MOV 


R1.T30FCN 


JMP 


182$ 


CKLOOP 





002214 
017262 



000017 



999$: 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG»*15 
999$ 

PC.CKDROP 



iPOINT TO NEXT POSITION 

jGET NEXT COMMAND ETC. 

jENC OF TABLE MARKER 

j BR, IF AT END OF TABLE 

jGET NUMBER OF SKIPS 

, CLEAR THE CARHY BIT 

,PUSH OVER ONE POSITION 

tPUT BACK IN COUNTER 

j JUMP TO MORE COMMANDS TO 00 

I LOOP IF SELECTED 

TRAP C$CLP1 
END SUBTEST >>>>>>>>>>> 
L 10045: 

TRAP C$ESU8 
j IS ERROR COLNT AT 25 
iBR, IF LESS THAN PS 
sTRY TO DROP THE UNIT 



I <<<<<<<<<<< 



TEST 2, SUBTEST 3 



VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
ISSUED WHILE THE TAPE IS POSITIONF.D AT BOT CAUSES 
FUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 
FUNCTION CNEF) ERROR BIT SET. 



BGNSUB 



I >>*>>>>>>>>> 



BEGIN SUBTEST 
T2.3: 

TRAP 



'»>>>>>>'»>>■>> 



C5BSU8 



041252 
036654 
041344 
041406 
176750 
016054 



036656 



10$ 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC.T30RT2 


JSR 


PC.T30RT3 


MOV 


065000. .T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



012727 000250 



I SET COMMAND PACKET 

j CLEAR FILE COUNTER 

» SET UP OTHER COMMANO PACKET 

j SET UP OTHER COMMAND PACKET 

jSET \JP DELAY COUNTER 

jDO INITIALIZE ON CONTROLLER 

j BR IF INIT WAS OK 

tDELAY ROUTINE CALL 

MOV 



0250,tPC)> 



F10 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 2; SKIP TAPE MARKS 



1475 
1476 
1477 
1481 
1482 



1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1499 
1500 



1501 

1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1517 



1518 
1519 



035440 
035442 
035446 
035450 
035454 
035456 
035462 
035464 
035470 
035472 
035476 
035500 
035500 
035502 
035504 
035506 
035510 
035510 
035516 



035522 
035526 
035530 
035534 
035536 
035536 
035540 
035542 
035544 
035546 
035546 



035550 
035554 
035556 
035560 
035564 
035570 
035570 
035572 
035574 
035576 
035600 
035600 



COOOOO 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000353 
003646 
012114 

013737 
012704 



004737 
103407 
005237 
010001 

104456 
000354 
005052 
012114 

104406 



004737 
103411 
010004 
016501 
005237 

104456 
000355 
040240 
012126 

104406 



002116 
177772 
177756 
036656 
002214 



002174 
036500 



010742 
002214 



011074 



000002 
002214 



FEB-84 


18:04 




SEQ 122 


. WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 




L$DLr,CPC)f 



-6CPC) 

.-4 

-22CPC) 

.-20 


DEC 


T30DLY 




{BUMP COUNTER 






BNE 


10* 




iBR, IF MORE COUNTING TO DO 




INC 


FATFLG 




I ERROR COUNT 




MOV 


R0,R1 




t CONTENTS OF TSSR 


REGISTER 




ERRDF 


ERRNO, SFIERR, 


, SFIMSG 


{FATAL ERROR TSGR 


WAS NOT OK 
TRAP 
.WORD 
.WORD 
.WORD 


CSERDF 
235 

SFIERR 
SFIMSG 



036520 



20$; 



MOV UNITN.T30DSW 
MOV OT30PACKET.R4 



jSET UP UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 



********************************************************** 

j ISSUE WRITE CHARACTERISTICS COMMAND 

I 

********************************* ********** ************** * 



23$: 



JSR PC, WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0,R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



CKLOOP 



{ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMANO ISSUED OK 

{ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
236 

WRTMSG 
SFIMSG 

CSCLP1 



********************************************************** 

{ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



• ***< 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0,R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



30$: 



ERRHRD ERRNO, T30RWN,PKTSSR 



CKLOOP 



{CALL TAPE REWINO COMMAND 
» BR, IF NO PROBLEM 
{GET PACKET ADDRESS 
{GET STATUS REGISTER 
,ERROR COUNT 
{REWIND NOT ACCEPTED 



{LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
°37 

T30RWN 
PKTSSR 

CSCLPl 



G10 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 2; SKIP TAPE MARKS 

1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1535 



MACRO M1113 06-FEB-84 18:04 



SEQ 123 



1536 

1537 
1538 
1539 
1540 
1541 
1542 
1S43 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1557 



1558 

1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1575 



035602 
035606 
035610 
035614 
035616 
035620 
035624 
035624 
035626 
035630 
035632 
035634 
035634 
035636 



035644 
035652 
035656 
035662 
035666 
035672 
035676 
035700 
035702 
035706 
035706 
035710 
035712 
035714 
035716 
035716 



035720 
035724 
035726 
035732 
035734 
035736 
035742 



013701 036530 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
000356 
040041 
015554 

104406 

012737 000001 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000357 
037031 
012126 

104406 



141410 
036620 
000000 
016330 
000002 
100206 



002214 



013701 036530 

010102 

052702 002000 

020102 

001406 

005237 002214 



♦a******************************************************* 
GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

j ********************************************************* 



MOV 


T30BFRf6,Rl 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



40$ 



036622 



ERRHRD ERRN0,T30B0T,EXPREC 

CKLOOP 

MOV *1,T30WB 



{PICK UP XSTO 




j SET UP EXPECTED 




jSET BOT BIT IN EXPECTED 




jDOES EXP • REC'D 




j BR, IF EQUAL (OK) 




j ERROR COUNT 




j TAPE NOT AT BOT AFTER REWIND 




TRAP 


C$ERHRD 


.WORD 


238 


.WORD 


T30B0T 


.WORD 


EXPREC 



j LOOP IF SELECTED 
; SET OF TM TO SKIP 



TRAP 



C$CLP1 



;********************************************************* 



; 



SKIP TAPE MARK REVERSE, ACK ,CVC» 1 COMMAND 

********************************************************* 



036620 



MOV 


$141410, T30PK3 


MOV 


4T30PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR!SC!BIT1!BIT2,R2 


CMP 


R1,R2 


BEQ 


70$ 


INC 


FATFLG 



70$ 



ERRHRD ERRN0.T3OIBT.PKTSSR 



CKLOOP 



jSKIP TAPE MARK REVERSE, ACK ,CVC*1 CMD 

j SET UP R4 WITH PACKET ADDRESS 

, ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

; BR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERH«D 



jLOOP IF SELECTED 



.WORD 
.WORD 

.WORD 

TRAP 



239 
T30I8T 

PKTSSR 

C$CLP1 



j**************** *********** ****************************** 

IGET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

i 
j*****************************.**************************** 

{PICK UP XSTO 

{SET UP EXPECTED 

jSET NEF BIT IN EXPECTED 

{DOES EXP ■ REC'D 

j BR, IF EQUAL COK) 

{ERROR COUNT 
ERRHRD ERRN0,T30NEF,EXPREC {TAPE NOT AT NEF 



MOV 


T30BFR»6,R1 


MOV 


R1.R2 


BIS 


*8IT10,R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 



H10 



TEST 1 - 
TEST 2; 


HARDWARE TEST 1-8 TEST 
SKIP TAPE MARKS 


MACRO Mil 13 06 


-FEB -84 


18:04 






SEQ 124 






035742 


104456 














TRAP 


C$ERHRD 




035744 


000360 














.WORD 


240 




035746 


040576 














.WORD 


T30NEF 




035750 


015554 














.WORD 


EXPREC 


1576 


035752 
035752 


104406 




180$: 


CKLOOP 








»L00P IF SELECTED 

TRAP 


C$CLP1 


1577 


035754 
035754 
035754 


104403 






ENDSUB 








j<<<<<<<<<<< END SUBTEST >>>>> 

L 10046: 

TRAP 


>>>>>> 

C$ESUB 


1578 


035756 


023727 


002214 


000017 


CMP 


FATFLG.015. 






{IS ERROR COUNT AT 25 




1579 


035764 


103402 






BLO 


999$ 






{BR, IF LESS THAN 25 




1560 


035766 


004737 


017262 




JSR 


PC.CKDROP 






{TRY TO DROP THE UNIT 




1581 


035772 






999* j 














1582 








i ♦ 














1565 








< 














1584 








{TEST 2 


, SUBTEST 4 










1585 
























1586 
























1587 










VERIFIES THAI 


A SKIP TAPE 


MARKS 


REVERSE COMMAND 




1588 










ISSUEO 


WHILE 


THE TAPE IS POSITIONED 


JUST BEFORE THE 




1589 








Ifirst 


RECORD 


ON ON TAPE CBUT NOT AT 


BOT) CAUSES TAPE 




1590 








{STATUS 


ALERT 


TERMINATION, 


WITH 


THE 1 


REVERSE INTO BOT 




1591 








iCRIB) 


STATUS 


BIT SET, 










1592 






















1593 
























1594 
























1595 








i 














1596 








i 














1597 








{ - 














1598 


035772 








BGNSUB 








.>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




035772 
















T2.4: 






035772 


104402 














TRAP 


C$BSUB 


1599 


035774 


004 737 


041252 




JSR 


PC.T30REST 






iSET COMMAND PACKET 




1600 


036000 


005037 


036654 




CLR 


T30FCN 






{CLEAR FILE COUNTER 




1601 


036004 


004737 


041344 




JSR 


PC.T30RT2 






{SET UP 0Th£R COMMAND PACKET 




1602 


036010 


004737 


041406 




JSR 


PC.T30RT3 






{SET UP OTHER COMMAND PACKET 




1603 


036014 


012757 


176750 


036656 


MOV 


065000. , T30DLY 




{SE T UP DELAY COUNTER 




1604 


036022 


004757 


016054 


10$: 


JSR 


PC.SOFINIT 






{DO INITIALIZE ON CONTROLLER 




1605 


036026 


105426 






BCS 


20$ 






jBR IF INIT WAS OK 




1606 


036030 
036030 
036034 
036036 
056042 
036044 
036050 
056052 
056056 


012727 
000000 
015727 
000000 
005567 
001375 
005367 
001367 


000250 
002116 
177772 
177756 




DELAY 


250 






{DELAY ROUTINE CALL 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


0250, (PC)- 



LSDLY.CPC)* 



-6CPC) 

. -4 

-22CPC) 

. -20 


1607 


036060 


005337 


036656 




DEC 


T300L> 






{BUMP COUNTER 




1608 


036064 


001356 






BNE 


10$ 






{BR, IF MORE COUNTING TO 00 




1609 


036066 


005237 


002214 




INC 


FATFLG 






{ERROR COUNT 




1613 


056072 


010001 






MOV 


R0.R1 






{CONTENTS OF TSSR REGISTER 




1614 


036074 








ERRDF 


ERRNO.SFIERR.SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 






036074 


104455 














TRAP 


C$ERDF 




036076 


000361 














.WORD 


241 




036100 


003646 














.WORD 


SFIERR 




036102 


012114 
















.WORD 


SFIMSG 



110 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 2» SKIP TAPE MARKS 
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1615 


036104 






1616 


036104 


013737 


002174 


1617 


036112 


012704 


036500 


1618 








1619 








1620 








1621 








1622 








1623 








1624 








1625 


036116 


004 737 


010742 


1626 


036122 


103407 




1627 


036124 


005237 


002214 


1631 


036130 


010001 




1632 


036132 








036132 


104456 






036134 


000362 






036136 


005052 






036140 


012114 




1633 


036142 








036142 


104406 




1634 








1635 








1636 








1637 








1638 








1639 








1640 








1641 


036144 


004737 


011074 


1642 


036150 


103411 




1643 


036152 


010004 




1644 


036154 


016501 


000002 


1645 


036160 


005237 


002214 


1649 


036164 








036164 


104456 






036166 


000363 






036170 


040240 






036172 


012126 




1650 


036174 








036174 


104406 




1651 








1652 








1653 








1654 








1655 








1656 








1657 








1658 


036176 


013701 


036530 


1659 


036202 


010102 




1660 


036204 


052 702 


000002 


1661 


036210 


020102 




1662 


036212 


001406 




1663 


036214 


005237 


002214 


1667 


036220 








036220 


104456 






036222 


0OO364 






036224 


040041 





036520 



20*: 



MOV UNITN.T30DSW 
MOV GT30PACKET.R4 



SEQ 125 



{SET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



********************************************************* 

ISSUE WRITE CHARACTERISTICS COMMAND 

****************** * ********************** ******** ******** 



23$: 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0.R1 

ERRHRD ERRNO , WR TMSG , SF IMSG 



CKLOOP 



;ISSUE WRITE CHARACTERISTICS 
i BR. IF COMMANO ISSUED OK 

j ERROR COUNT 
I SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



jLOOP IF SELECTED 



TRAP 



; ** ***************************** +**************+*+**+***** 

! ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
» 

; A. *************************** ***************************** 

{CALL TAPE REWIND COMMAND 
j BR. IF NO PROBLEM 
{GET PACKET ADDRESS 
iGET STATUS REGISTER 
{ERROR COUNT 
ERRHRD ERRNO, T30RWN,PKTSSR {REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



30$: 



CKLOOP 



jLOOP IF SELECTED 



TRAP 



********************************************************* 

GET EXTENDED STATUS REGISTER ZERO (XSTO^ FROM MESSAGE BUFFER 

J 

;************ ********************************************* 

{PICK UP XSTO 

iSET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR. IF EQUAL COK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO, T30B0T.EXPREC 



CiERHRD 

242 

WRTMSG 

SFIMSG 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


243 


.WORD 


T30RWN 


.WORD 


PKTSSR 



C$CLP1 



C5ERHPD 

l?44 

T30B0T 



J10 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 2: SKIP TAPE MARKS 
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1668 

1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1690 



1691 

1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1,01 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1712 



1713 

1714 

1715 
1716 
1717 
1718 



036226 
036230 
036230 
036232 
036240 



036246 
036254 
036260 
036264 
036270 
036274 
036300 
036302 
036304 
036310 
036310 
036312 
036314 
036316 
036320 
036320 



036322 
036330 
036336 
056342 
036346 
036352 
036356 
036362 
036364 
036366 
036372 
036372 
036374 
036376 
036400 
036402 
036402 



015554 

104406 

013737 003116 

012737 000400 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000365 
037170 
012126 

104406 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000366 
036660 
012126 

104406 



140005 
036620 
000000 
016330 
000002 
000200 



002214 



000001 
141410 
036620 
000000 
016330 
000002 
100204 



002214 



036622 
036626 



036620 



036622 
036620 



40*; 



CKLOOP 

MOV 
MOV 



FREE.TSOUB 
#256,,T30SZ 



SEQ 126 



• WORD 
I LOOP IF SELECTED 

TRAP 
{SET UP GOOD WRITE BUFFER 
j SET UP SIZE 



EXPREC 
CSCLP1 



WRITE DATA.ACK.CVC-1 COMMAND 
************************************************* ******** 



MOV 


#140005 .T30PK3 


MOV 


#T30PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR»R2 


CMP 


R1.R2 


BEQ 


70 * 


INC 


FATFLG 



70$: 



ERRHRD ERRNO . T30WDD , PKTSSR 



CKLOOP 



iWRITE DATA, ACK, CVOl COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
j ISSUE COMMAND 
iWAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
j SET UP EXPECTED 
I ARE THEY EQUAL 
{BR. IF OK 

; ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 

TRAP CJERHRD 



{LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



245 

T30WDO 

PKTSSR 

CSCLP1 



i********************************************************* 

!SKIP TAPE MARK REVERSE ,ACK .CVOl COMMAND 

J 

j ********************************************************* 



MOV 


01.T30W8 


MOV 


#141410, T30PK3 


MOV 


#T30PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


#SSR!BIT2!SC,R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 



ERRHRD ERRNO, T30IBU.PKTSSR 



s# OF TM TO SKIP 

{SKIP TAPE MARK REVERSE , ACK , CVOl CMD 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

;WAIT FOR SSR TO SET 

{PICK UP TSSR 

{SET UP EXPECTED (SSR AND SC ONLY) 

{WAS STATUS GOOD 

iBR. IF TERMINATION WAS GOOD 

{ERROR COUNT 
{TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP CSERHRD 



160$: CKLOOP 



{LOOP IF SELECTED 



.WORD 
.WORD 

.WORD 

TRAP 



246 

T30IBU 
PKTSSR 

C*CLP1 



************»******&************************************* 

GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 
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SEQ 127 



1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1730 



1731 
1732 



1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 



1744 
1745 
1746 
1748 
1750 
1751 
1752 
1753 
17'54 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1766 
1768 
1769 
1770 
1771 
1772 
1773 



036404 
036410 
036412 
036416 
036420 
036422 
036426 
036426 
036430 
036432 
036434 
036436 
036436 
036440 
036440 
036440 
036442 
036450 
036452 
036456 



036456 
036462 
036464 
036470 
036470 
036472 



036500 
036500 
036502 
036504 
036506 
036510 
036510 
036512 
036514 
036516 
036520 
036522 



036610 
036610 
036612 
036614 
036616 



; + + + + * + + + + *** + * + + *** + + + + + *-/ + + + + + * + ** + + + **** + + ** + * + * + + + + * + + 



013701 036536 

010102 

052702 000001 

020102 

001406 

005237 002214 

1C4456 
000367 
036745 
015554 

104406 



104403 

023727 002214 000017 

103402 

004737 017262 



004737 016536 

103002 

000137 032360 

104432 
002736 



036500 

100004 
036510 
000000 
000012 

036522 

000000 
000024 
000000 
000000 



036610 

100006 
036630 
000000 
000006 



MOV 


T30BFR*14,Rl 


MOV 


R1.R2 


BIS 


*BIT0,R2 


CMP 


R1.R2 


BEQ 


170* 


INC 


FATFLG 



170$ 



ERRHRD ERRNO , T30RIB , EXPREC 

CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 
999$; 
SUBTEST END 



JSR 
BCC 
JMD 

400$: EXIT 



FATFLG, ^15. 

999$ 

PC.CKDROP 



PCTSTLOOP 

400$ 

T30L00P 

TST 



; LOCAL STORAGE FOR THIS TEST 



.«<.*10 


>£177770 


T30PACKET: 




.WORD 


100004 


.WORD 


T30DATA 


.WORD 





.WORD 


10. 


T30DATA; 




.WORD 


T30BFR 


.WORD 





.WORD 


20. 


T30ETM: .WORD 





T30DSW: .WORD 


C 


T30BFR; .BLKW 


25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.-<.*10>6177770 



T30PK2: 



.WORD 
.WORD 
. WORD 
.WORD 



100006 

T30BF2 



6. 



(PICK UP XST3 




,SET UP EXPECTEO 




iSET RIB BIT IN EXPECTED 




j DOES EXP - REC'D 




j BR, IF EQUAL COK) 




{ERROR COUNT 




iTAPE NOT AT RIB 




TRAP 


C$ERHRD 


.WORD 


247 


.WORD 


T30RIB 


.WORD 


EXPREC 



;L00P IF SELECTED 



TRAP 



C$CLP1 



;<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 

L10047- 

TRAP C$ESUB 
iIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



I DO WE NEED TO ITERATE TEST 

iBR, IF NO LOOP REQUIRED 

; EXECUTE AGAIN 

5 ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10043 



j COMMAND PACKET FOR TEST 

|URi:E CHARACTERISTICS COMMAND, UITH 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
{SKIP TAPE MARK CONTROL 
{SELECT DRIVE 
{MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SFLECT BLOCK DATA 

{SIZE OF DATM PACKET 



L10 



TEST i - HARDWARE TEST ; 
TEST 2 j SKIP TAPE MARK! 
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1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1323 

1824 

1825 

1826 

182 7 

1828 

1829 

1830 

1831 

1832 

1833 



036620 
036620 
036622 
036622 
036624 
036626 



036630 
036630 
036631 
036632 
036634 



036636 
036636 
036636 
036640 
036642 
036644 
036646 



036650 
036652 
036654 
036656 



036660 
036745 
037031 
037114 
037170 
037242 
037333 
037413 
037471 
037553 
037630 
037711 
037762 
040041 
040106 
040163 
040240 
040307 
040562 
040441 



100205 

003116 
000000 
000000 



010 

200 

000000 

000000 



000000 
000100 
000200 
000300 
177777 



000000 
000000 
000000 
000000 



124 
122 
124 
124 
124 
124 
124 
124 
124 
124 
111 
127 
124 
124 
124 
124 
122 
104 
124 
103 



123 
111 
123 
123 
123 
141 
141 
123 
123 
123 
154 
122 
123 
141 
123 
123 
145 
162 
123 
126 



123 
102 
123 
123 
123 
160 
160 
123 
123 
123 
154 
111 
123 
160 
123 
123 
167 
151 
123 
103 



T30PK3 



.WORD 100205 



T30RB; 
T30WB; 

T30SZ: 

• 


.WORD 
.WORD 
.WORD 
.EVEN 


FREE 






i 

T30BF2: 

T30BS0: 
T30BS1: 
T30S2: 
T30S3: 

i 


.BYTE 
.BYTE 
.WORD 
.WORD 


10 
200 





.EVEN 
;TAPE MOTION PACKET COMMAND VALUES 



T30IMV: 
T30RN: 



T30CNT 
T30CNU 
T30FCN 
T30DLY 

I LOCAL 
i - 

T30IBU 
T30RIB 
T30IBT 
T30SKM 
T30WDD 
■30PTB 
T30TPB 
T30RDF 
T3OR0G 
T30WDF 
T30L0Q 
T30SSR 
T30WDE 
T3OB0T 
T30TMj 
T30TM2 
T30RWN 
T300FL 
T30WDC 
T30VCK 



WORD 
WORD 
WORD 
WORD 
WORD 



.WORD 
.WORD 
.WORD 
.WORD 



000000 
000100 
000200 
000300 
177777 










TEXT MESSAGES FOR TEST 



SEQ 128 

; HERE AD COMMAND, IE AND ACK 
; ADDRESS OF WRITE BUFFER 
j SIZE OF BUFFER (EXTENT) 



jBSKLO AREA 
jBSELl AREA 
jSEL 2 AREA 
j DATA AREA 



j NEITHER EWB NOR ESS 

;EWB SET 

iESS SET 

j BOTH EWB AND ESS SET 

{END OF DATA 



{TAPE TIMER COUNTER STORAGE AREA 
iTAPE TIMER COUNTER STORAGE AREA 
l FILE NUMBER COUNTER 
{DELAY COUNTER STORAGE 



.ASCIZ 'TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT* 

.ASCIZ 'RIB Bit (XST3) Failed To Set After Reverse Into BOT' 

.ASCIZ 'TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT' 

.ASCIZ 'TSSR Incorrect After SKIP TAPE MARK Command' 

.ASCIZ 'TSSR Not Correct After WRITE DATA Commend' 

.ASCIZ 'Tope Not Positioned On Correct Record After READ REVERSE* 

.ASCIZ 'Tope Not Positioned On Second File First Record' 

.ASCIZ 'TSSR Incorrect After READ FORWARD Into "File"' 

.ASCIZ 'TSSR Incorrect After SPACE Commend Into TAPE MARK' 

.ASCIZ *TSSR Not Correct After Illegal Mode Bits Set' 

.ASCIZ 'Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 

.ASCIZ 'WRITE MISCELLANEOUS Command Not Accepted' 

.ASCIZ 'TSSR Not Correct After SKIP TAPE MARKS, At BOT' 

.ASCIZ 'Tape Not At BOT After REWIND Command 1 

.ASCIZ 'TSSR Not Correct After SPACE FORWARD Command' 

.ASCIZ 'TSSR Not Correct After SPACE REVERSE Command' 

.ASCIZ 'Rewind (POSITION) Command Not Accepted' 

.ASCIZ 'Drive 7 Select Failed To Set "OFL" In TSSR- 

.ASCIZ 'TSSR Not Correct After WRITE TAPE MARK Command' 

, ASCIZ 'CVC Set, Didn"t Reset VCK In Message Buffer' 



M10 



TEST 
TEST 



2; 



1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

184 7 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1667 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1681 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 



HARDWARE 
SKIP TAI 

040514 
040576 
040655 
040733 
041012 
041070 
041134 
041231 



TE 



041252 
041252 
041256 
041262 
041266 
041272 
041274 
041300 
041304 
041306 
041312 
041314 
041320 
041324 
041332 
041334 
041340 
041342 

041344 
041344 
041350 
041354 
041360 
041364 
041366 
041372 
041374 
041400 
041402 
041404 
041406 
041406 
041412 
041416 
041420 
041422 
041424 
041426 
041430 
041430 



MARKS 



124 
123 
124 
124 
124 
116 
104 
123 
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SEQ 129 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



115 
113 
115 
115 
115 
117 
141 
153 



036610 
100006 
036630 

000006 

036630 



113 
111 
113 
113 
113 
040 
164 
151 



T30TMK: .ASCIZ ' TMK Not Set After WRITE TAPE MARK (RETRY) Command' 

T30NEF; .ASCIZ 'SKIP TAPE MARKS, At BCT, Failed To Set NEF Bit' 

T30RRM: .ASCIZ 'TMK Not Set After READ REVERSE Into TAPE MARK' 

T30RRN: .ASCIZ 'TMK Not Set After SPACE REVERSE Into TAPE MARK' 

T30RRP: .ASCIZ 'TMK Not Set After READ FORWARD Into TAPE MARK' 

T300TR: .ASCIZ 'NO Data Transferred On READ FORWARD' 

T30DTA; .ASCIZ 'Data Compare Error, Data Read From Tape Not Equal To Written 

TST30ID: .ASCIZ 'Skip Tape Marks' 
. EVEN 



I ROUTINE TO RESTORE COMMAND PACKET TO 
; WRITE SUBSYSTEM MEMORY COMMAND 



START-UP (DEFAULT) VALUES 



036500 
100004 
036510 

000012 
036522 

000024 

000000 
000030 
177777 036522 

000000 



036620 



T30REST: 




SAVREG 




MOV 


$T30PACKET,R1 


MOV 


$100004, CRD* 


MOV 


$T30DATA,(RD* 


CLR 


CRD* 


MOV 


♦10, ,(R1)» 


MOV 


$T30BFR,CRD* 


CLR 


CRD* 


MOV 


$20, .(RD* 


CLR 


(RD* 


MOV 


$o.crd 


MOV 


$24. ,R2 


64$ * MOV 


0177777, T30BFRCR2) 


TST 


-CR2) 


CMP 


$0. ,R2 


BNE 


64$ 


RTS 


PC 


T30RT2: 




SAVREG 




MOV 


$T30PK2,R1 


MOV 


$100006, CRD* 


MOV 


$T30BF2,CR1)* 


CLR 


(RD* 


MOV 


$6. ,(RD* 


CLR 


CRD* 


MOV 


$T30BF2,R1 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


T30RT3: 




SAVREG 




MOV 


$T30PK3,R1 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


ENDTST 





{SAVE THE REGISTERS 

j START OF THE PACKET 

; WRITE SUBSYSTEM MEM. WITH ACK . 

{ADDRESS OF CHARAISTICS DATA BLOCK 

j EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE ZERO 
{NUMBER OF LOCATIONS TO BE CLEARED 
{ALL ONES TO MESSAGE BUFFER 
{NEXT LOCATION 

{CHECK R2 FOR DONE 
{KEEP GOING UNTIL DONE 
{RETURN 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK, 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



{RETURN 

{SAVE REGISTERS 

{SET UP POINTER ADDRESS 

{COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

{RETURN 

L10043: 



N10 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 2: SKIP TAPE MARKS 



MACRO M1113 06-FEB-84 18;04 



SEQ 130 



041430 104401 



1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 

1903 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 



1938 
1939 
1940 
1941 
1942 
194 3 
1944 



041432 
041432 
041432 
041440 
041444 
041450 
041456 



041462 



041462 
041462 
041462 
041464 
041470 
041474 
041500 
041506 
041512 
041514 
041514 
041520 



.SBTTL TEST 3; NO-OP ('CLEAN TAPE") AND INITIALIZE 



TRAP 



C$ETST 



j THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND INITIALIZE 
{COMMAND (SPACE REVERSE , ERASE, WRITE DATA) 

THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



012737 
012700 
004737 
012737 
005037 



006354 002172 

046543 

016570 

000005 002210 

043336 



BGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



0EPRT1.EPRTSW 

#TST31I0,R0 

PC.TSTSETUP 

G5.L00PCNT 

T31CNT 



T3;: 
j PRIMARY ERROR MESSAGE 
{ASCII MESSAGE TO IDENTIFY 
{DO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
{CLEAR TAPE RECORD COUNTER 



TEST 



T.Vt-OOPs 

¥ 

TEST 3, SUBTEST 1 



VERIFIES THAT THE NO-02 COMMAND (CORRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMANO), AND 
INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUNO AND 
WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
ANO THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED ( TO CHECK TAPE POSITION AND 
VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 
ISSUED AGAIN AND STATUS AND POSITION VERIFIED, 



BGNSU8 



{ >>>>>>>>>>>> 



104402 
004737 
004 737 
004 737 
012737 
004/37 
103426 

0127«?7 
000000 



046610 
046702 
046744 
176750 
016054 



000250 



043342 



10$ j 



jsa 


PC.T31REST 


JSR 


PC.T31RT2 


JSR 


PC.T31RT3 


MOV 


^65000. , T31DLY 


JSR 


PCSOFINIT 


BCS 


20$ 


DELAY 


250 



BEGIN SUBTEST 
T3.1: 

TRAP 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 
{SET UP DELAY COUNTER 
;D0 INITIALIZE ON CONTROLLER 
; BR IF INIT WAS OK 
{DELAY ABOUT .25 SEC 



>>>>>>>>>>>> 



c$bsub 



MOV 
.WORD 



C250.CPC)* 




B 1 1 



TEST 

TEST 



1945 
1946 
1947 
1951 
1952 



1953 
1954 
1955 
1956 
1957 
1961 
1%2 



1963 

19t>4 
1965 
1966 

1967 
1971 



1972 

1973 
1974 

1975 
1976 
1977 
1976 
1982 



1983 

1984 

1985 
1986 

1987 

190$ 



HARDWARE TEST 
NO-OP (-CLEAN 



041522 

041526 

041530 

041534 

041536 

041542 

041544 

041550 

041552 

041556 

041560 

041560 

041562 

041564 

041566 

041570 

041576 

041602 

041606 

041610 

041614 

041616 

041616 

041620 

041622 

041624 

041626 

041626 

041630 

041634 

041636 

041640 

041644 

041644 

041646 

041650 

041652 

041654 

041654 

041656 

041662 

041664 

041670 

041672 

041674 

041700 

041700 

041/02 

041704 

041706 

041710 

041710 

041712 

04 i 720 

0*U726 

04173? 

041736 



013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000455 
003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
000456 
005052 
012114 

104406 
004737 
103407 
010004 
005237 

104456 
000457 
044674 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000460 
044345 
015554 

104406 
013737 

012737 
012704 
012700 
004737 



1-8 TEST MACRO M1113 
TAPE") AND INITIALIZE 

002116 

177772 

177756 

043342 

002214 



002174 043210 20$; 

043170 

010742 

002214 



FEB -84 


18 s 04 




SEQ 131 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


L $DLY,( 



-6CPC) 

.-4 

-22CPC) 

.-20 


DEC 


T31DLY 




jBUMP COUNTER 




BNE 


101 




|BR, IF COUNTER NOT DONE 




INC 


FATFLG 




lERROR COUNT 




MOV 


R0,R1 




, CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO,SFIERR t 


SFIMSG 


jFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


Of RDF 
301 

SFIERR 
SFIMSG 


MOV 


UNITN,T310SW 




iSET UP LNIT NUMBER IN PACKET 




MOV 


♦T31PACKET.R4 




(SUBROUTINE NEEDS PACKET ADORESS 


JSR 


PC.WRTCHR 




l ISSUE WRITE CHARACTERISTICS 




BCS 


231 




iBR, IF COMMAND ISSUED OK 




INC 


FATFLG 




lERROR COUNT 




MOV 


R0.R1 




iSAVE CONTENTS OF TSSR 




ERRMRD 


ERRN0»WRTMGG, 


SFIMSG 


jWRITE CHARACTERISTIC FAILED 





23$s 



011074 
002214 



30$ { 



CKLOOP 

JSR 
BCS 

MOV 
INC 
ERRHRD 



CKLOOP 



043220 
0OOO02 

0C2214 



003116 
140005 
043310 
000144 
Q175Q2 



40$: 

043312 
043310 6S*i 



CKl OOP 

MOV 
MOV 

MOV 
MOV 

JSR 



fPO* 



PC.REWINO 

301 

R0.R4 

FATFLG 

ERRN0,T31RWN,PKTSSR 



TRAP 
.WORD 

.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 

I CALL TAPE REWIND COMMAND 

l BR. IF NO PROBLEM 

I SET UP REWIND PACKET ADDRESS 
lERROR COUNT 

jREWINO NOT ACCEPTED 

TRAP 
.WORO 
.WORD 
.WORD 



C$ERHRD 
302 

WRTMSG 
SFIMSG 

CfCLPl 



MOV 


T31BFR»6 # R1 


MOV 


R1.R2 


BIS 


#eiTl,R2 


CMP 


H1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRNO, T31B0T.EXPREC 



l LOOP IF SELECTED 

iPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

»DOES EXP • REC'D 

»BR. IF EQUAL (OK) 

lERROR C0L*4T 
I TAPE NOT AT BOT AFTER 



TRAP 



CIERHRD 
30 5 

T31RWN 
PKTSSR 

C$CLPl 



REU'INO 




TRAP 


CIERHRD 


.WORD 


304 


.WORD 


T31B0T 


.WORD 


EXPRE'C 



FREE.T31WB 
0140005, T3J.PK3 
♦ T31PK5.M4 
0100. .RO 
Pd^ILLMEH 



lLOOP IF SELECTED 

TRAP CtCl.Pl 

^STARTING WRITE BUFFER ADDRESS 
IWRITE DATA,CVC'l,ACK COMMANO 
l SET UP R4 WITH PACKET ADORESS 

iSET PATTERN IN CORRECT REGISTER 
iHU MtMQRt WITH RECORD SU'E 



C 1 1 



\n\ s; rawwia hhm»mmtth 



O6-FE0 84 18:04 



SEQ 132 



1969 041742 


012737 


000144 043316 


1990 041750 


010465 


000000 


1991 041754 


004737 


016330 


1992 041760 


016501 


000002 


1993 041764 


012702 


000200 


1994 041770 


020102 




1995 041772 


001406 




1996 041774 


005237 


002214 


2000 042000 






042000 


104456 




042002 


000461 




042004 


045230 




042006 


012126 




2001 042010 






042010 


104406 




2002 042012 


004737 


011074 


2003 042016 


103407 




2004 042020 


010001 




2005 042022 


005237 


002214 


2009 042026 






042026 


104456 




042030 


000462 




042032 


044674 




042054 


015554 




2010 042036 






042036 


104406 




2011 042040 


013701 


043220 


2012 042044 


010102 




2013 042046 


052702 


000002 


2014 042052 


020102 




2015 042054 


001406 




2016 042056 


005237 


002214 


2020 042062 






042062 


104456 




042064 


000463 




042066 


044545 




042070 


015554 




2021 042072 






042072 


104406 




2022 042074 


012737 


041012 043310 


2023 042102 


012704 


043310 


2024 042106 


010337 


043316 


2025 042112 


010465 


000000 


2026 042116 


004737 


016330 


2027 042122 


016501 


000002 


2028 042126 


012702 


000200 


2029 042132 


020102 




2030 042134 


001406 




2031 042136 


005237 


002214 


2035 042142 






042142 


104456 




042144 


000464 




042146 


04 3543 




042150 


012126 




2036 042152 






042152 


104406 




2037 042X54 


013701 


043220 



80* : 



MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

JSR 
BC5 
MOV 
INC 
ERRHRD 



230$: CKLOOP 



240$: CKLOOP 



265$: 



280 V: 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 
MOV 



0100, .T31SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

05SR,R2 

R1,R2 

80$ 

FATFLG 

ERRN0,T31WDC,PKTSSR 



PC. REWIND 

230$ 

R0.R1 

FATFLG 

ERRN0,T31RWN, EXPREC 



MOV 


T31BFR»6,R1 


MOV 


R1.R2 


BIS 


*BIU t R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T31B0T, EXPREC 



0041012, T31PK3 

♦T31PK3.R4 

R3.T31SZ 

R4,TS0B(R5) 

PC.WAITF 

TSSR(R5),R1 

0SSR.R2 

R1.R2 

280$ 

FATFt G 

ERRN0,T31RDF,PKTSSR 



i SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

,SET UP EXPECTED 

I ARE THEY EQUAL 

j BR, IF OK 

j ERROR COUNT 

j TSSR INCORRECT AFTER WRITE DA 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 

,CALL TAPE REWIND COMMAND 

l BR, IF NO PROBLEM 

I SAVE TSSR 

lERROR COUNT 

i REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



TA 



j LOOP IF SELECTED 

jPICK UP XSTO 

i SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

i DOES EXP - REC'D 

j BR, IF EQUAL C OK ) 

j ERROR COUNT 
i TAPE NOT AT BOT AFTER 



TRAP 



tLOOP IF SELECTED 

lNO-OP,CVC-l COMMAND 
iSET UP R4 WITH PACKET 
i SET UP RECORD SIZE IN 
I ISSUE COMMAND 
,WAIT FOR SSR TO SET 
tGET TSSR CONTENTS 
I SET UP EXPECTED 
,ARE THEY EQUAL 
j BR, IF OK 

tERROR COUNT 
j TSSR INCORRECT AFTER 



REWINO 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 

ADDRESS 
PACKET 



C$ERHRD 
305 
T31WDC 
PKTSSR 

C$CLP1 



i3iBFR*6»Rl 



ilOOP IK SELECTED 
jPICK UP XSTQ 



READ DAT 
TRAP 
.WORD 
.WORD 

.WORD 

TRAP 



A 



C$ERHRD 
306 

T31RWN 
EXPREC 

C$CLPl 



C$ERHRD 
307 
T31B0T 
EXPREC 

C$CLP1 



CiERHRD 
308 

r?iwD> 

PKTSSR 
C$CLPI 



Dll 



TEST 1 - 


HARDWARE TEST 


1-8 TEST 


MACRO MtllS 06 


-FED -84 


18 J 04 


SEQ 133 




TEST 3 j 


NO-OP 


( "CLEAN 


TAPE") AND INITIALIZE 










2038 


042160 


010102 








MOV 


Rl.R? 


iSET \JP EXPECTED 




2039 


042162 


052702 


000002 






BIS 


♦BIT1.R2 


iSET BOT BIT IN EXPECTED 




2040 


042166 


020102 








CMP 


R1.R2 


iDOES EXP • REC'D 




2041 


042170 


001406 








BEQ 


285$ 


l BR, IF EQUAL (OK) 




2042 


042172 


005237 


002214 






INC 


FATFLG 


j ERROR COUNT 




2046 


042176 
042176 
042200 
042202 
042204 


104456 
000465 
044345 
015554 








ERRHRD 


ERRN0.T31BOT.EXPREC 


{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
309 

T31B0T 
EXPREC 


2047 


042206 
042206 


104406 






2851 { 


CKLOOP 




{LOOP IF SELECTED 

TRAP 


C$CLP1 


2048 


042210 


012737 


140001 


043310 




MOV 


0140001, T31PK3 


iREAD.ACK.CVC-1 COMMAND 




2049 


042216 


012704 


043310 






MOV 


0T31PK3,R4 


jSET UP R4 WITH PACKET ADDRESS 




2050 


042222 


012737 


000144 


043316 




MOV 


♦100..T31SZ 


i SET UP RECORD 5IZE IN PACKET 




2051 


042230 


010465 


000000 






MOV 


R4.TSDBCR5) 


I ISSUE COMMAND 




2052 


042254 


004737 


016330 






JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




2053 


042240 


016501 


000002 






MOV 


TSSR(R5),R1 


{GET TSSR CONTENTS 




2054 


042244 


012702 


000200 






MOV 


0SSR,R2 


{SET UP EXPECTED 




2055 


042250 


020102 








CMP 


R1.R2 


j ARE THEY EQUAL 




2056 


042252 


001406 








BEQ 


290$ 


jBR, IF OK 




2057 


042254 


005237 


002214 






INC 


FATFLG 


i ERROR COUNT 




2061 


042260 
042260 
042262 
042264 
042266 


104456 
000466 
043344 

012126 








ERRHRD 


ERRN0.T31RDE.PKTSSR 


iTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
310 
T31RDE 
PKTSSR 


2062 


042270 
042270 


104406 






2901: 


CKLOOP 




jLOOP IF SELECTED 

TRAP 


CSCLP1 


2063 


042272 


017701 


140620 






MOV 


8FREE.R1 


iGET DATA READ 




2064 


042276 


012702 


000144 






MOV 


0100., R2 


jREAD EXPECTED 




2065 


042302 


020102 








CMP 


R1.R2 


iDID TAPE STAY POSITIONED 




2066 


042304 


001406 








BEQ 


330$ 


jBR. IF EXPO • RECD 




206 7 


042306 


005237 


002214 






INC 


FATFLG 


j ERROR COUNT 




2071 


042312 
042312 
042314 
042316 
042320 


104456 
000467 

043471 
015554 








ERRHRD 


ERRN0.T31WNG.EXPREC 


{TAPE DATA NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
311 
T31WNG 
EXPREC 


2072 


042322 








3301 ! 










2073 


042322 










ENDSUB 




j >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 




042322 














L 10051 i 






042322 


104403 












TRAP 


CJESUB 


2074 


042324 


023727 


002214 


000017 




CMP 


FATFLG. 015, 


iIS ERROR COUNT AT 25 




2075 


042332 


103402 








BLO 


999$ 


{BR, IF LESS THAN 25 




2076 


042334 


004737 


017262 






JSR 


PC»CKDR0P 


{TRY TO DROP THE UNIT 




2077 


042340 








999$: 










2078 










i * 










2079 




















2080 










j TEST 3 


, SUBTEST 2 






2081 




















2082 




















208 3 












VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 




2084 












ASSUMING NO MICRODIAGNOSTIC 


ERRORS ARE PRESENT (THEY WOULD 




2085 












ALREADY HAVE BEEN DETECTED 


IN PREVIOUS TESTS). THE TEST 




2086 












SEQUENCE IS SIMILAR TO THAT 


USED IN SUBTEST 1, 




2087 





















Ell 



TEST 
TEST 



5 



2088 
2089 
2090 
2091 



2092 
2093 
2094 
2095 
2096 
2097 
2101 
2102 



2103 
2104 
2105 
2106 
2107 
2111 
2112 



2113 

2114 

2115 
2116 
2117 
2121 



2122 

2123 

2124 
2125 
2126 
2127 
2128 
2132 



2133 

2134 
2135 



HARDWARE TE^T 
NO-OP ("CLEAN 



042340 

042340 

042340 

042342 

042346 

042352 

042356 

042362 

042364 

042370 

042372 

042372 

042374 

042376 

042400 

042402 

042410 

042414 

042420 

042422 

042426 

042430 

042430 

042432 

042434 

042436 

042440 

042440 

042442 

042446 

042450 

042452 

042456 

042456 

042460 

042462 

042464 

042466 

042466 

0424 70 

042474 

042476 

042502 

042504 

042506 

042512 

042512 

042514 

042516 

042520 

042522 

042522 

042524 

042532 



104402 
004 737 
004737 
004737 
004737 
103407 
005237 
010001 

104455 
000470 
003646 
012114 
013737 
012704 
O04737 
103407 
005237 
010001 

104456 
0004 71 
005052 
012114 

104406 
004737 
103407 
010004 
005237 

104456 
0004 72 
044674 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000473 
044345 
015554 

104406 
013737 
012737 



1-8 TEST MACRO M1113 
TAPE") AND INITIALIZE 

» 

1 " 



046610 
046702 
046744 
016054 

002214 



06-FEB-84 18:04 



SEQ 134 



BGNSUB 



JSR 


PC.T31REST 


JSR 


PC.T31RT2 


JSR 


PC.T31RT3 


JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



002174 043210 

043170 

010742 

002214 



20$: 



23* 



011074 
002214 



30$ 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



043220 
000002 

002214 



003116 043312 
140005 043310 



40$: 
65$; 



CKLOOP 

MOV 
MOV 



UNITN,T31DSW 

OT31PACKET.R4 

PC.WRTCHR 

23$ 

FATFLG 

R0.R1 

ERRNO.WRTMSG, SFIMSG 



PC, REWIND 

30$ 

R0,R4 

FATFLG 

ERRN0.T31RWN.PKTSSR 



MOV 


T31BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRNO.T31B0T.EXPREC 



I >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.2: 

TRAP C$BSU8 
I SET COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
>D0 INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 

I ERROR COUNT 
j CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 312 
,WORD SFIERR 
.WORD SFIMSG 
;SET UP INIT NUMBER IN PACKET 
j SUBROUTINE NEEDS PACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMANO ISSUED OK 

j ERROR COUNT 
; SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 
.WORD 313 
.WORD WRTMSG 
.WORD SFIMSG 
j LOOP IF SELECTED 

TRAP C$CLP1 
REWINO COMMAND 
NO PROBLEM 

REWINO PACKET ADDRESS 
{ERROR COUNT 
j REWIND NOT ACCEPTED 



I CALL TAPE 
iBR. IF 
i SET UP 



»LOOP IF SELECTED 

jPICK UP XSTO 

i SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

I DOES EXP • REC'D 

tBR, IF EQUAL (OK) 

jERROR COUNT 
jTAPE NOT AT BOT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
314 
T31RWN 
PKTSSR 

C5CLP1 



j LOOP IF SELECTED 



FREE.T31WB 
0140005, T31PK3 



j STARTING WRITE BUFFER 
(WRITE DATA.CVC-l.ACK 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
ADDRESS 
COMMAND 



C$ERHRD 
315 

T31B0T 
EXPREC 

C5CLP1 



Fll 



TEST i - HARDWARE TEST 


1-8 TEST MACRO 1 


TEST 3: NO-OP 


( "CLEAN 


TAPE") AND INIT 


2136 042540 


012704 


043310 


2137 042544 


012700 


000144 


2138 042550 


004737 


017502 


2139 042554 


012737 


C00144 043316 


2140 042562 


010465 


000000 


2141 042566 


004737 


016330 


2142 042572 


016501 


000002 


2143 042576 


012702 


000200 


2144 042602 


020102 




2145 042604 


001406 




2146 042606 


005237 


002214 


2150 042612 






042612 


104456 




042614 


0004 74 




042616 


045230 




042620 


012126 




2151 042622 






042622 


104406 




2152 042624 


004737 


011074 


2153 042630 


103407 




2154 042632 


010001 




2155 042634 


005237 


002214 


2159 042640 






042640 


104456 




042642 


000475 




042644 


044674 




042646 


015554 




2160 042650 






042650 


104406 




2161 042652 


013701 


043220 


2162 042656 


010102 




2163 042660 


052702 


000002 


2164 042664 


020102 




2165 042666 


001406 




2166 042670 


005237 


002214 


2170 042674 






042674 


104456 




042676 


0004 76 




042700 


044345 




042^02 


015554 




2171 042704 






042704 


104406 




2172 042706 


012737 


041012 043310 


2173 042714 


01270*1 


043310 


2174 042720 


010337 


043316 


2175 042724 


010465 


000000 


2176 042730 


004737 


016330 


2177 042734 


016501 


000002 


2178 042740 


012702 


000200 


2179 042744 


020102 




2180 042746 


001406 




2181 042750 


005237 


002214 


2185 042754 






042754 


104456 




042 756 


00047 7 




042760 


043543 




042762 


012126 





Mil 13 06 -FEB -84 18 {04 



80$ 



MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

JSR 
BC5 
MOV 
INC 
ERRHRD 



230$: CKLOOP 



240$: CKLOOP 

265$: MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



0T31PK3.R4 

4100., RO 

PC.FILLMEM 

#100. , T31SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

0SSR.R2 

R1,R2 

80$ 

FATFLG 

ERRN0,T31WDC, PKTSSR 



PC, REWIND 

230$ 

R0,R1 

FATFLG 

ERRN0,T31RWN, EXPREC 



MOV 


T31BFR*6,R1 


MOV 


R1,R2 


BIS 


*8IT1,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T31B0T,EXPREC 



4041012, T31PK3 

0T31PK3.R4 

R3.T31SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

0SSR.R2 

R1,R2 

280$ 

FATFLG 

ERRN0.T31RDF, PKTSSR 



SEQ 135 



{SET UP R4 WITH PACKET ADDRESS 

{SET PATTERN IN CORRECT REGISTER 
tFILL MEMORY WITH RECORD SIZE 
I SET UP RECORD SIZE IN PACKET 
i ISSUE COMMAND 
»WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
iSET UP EXPECTED 
{ARE THEY EQUAL 
jBR, IF OK 

{ERROR COUNT 
jTSSR INCORRECT AFTER WRITE DATA 

TRAP 

.WORD 

.WORD 

.WORD 
;LOOP IF SELECTED 

TRAP 
{CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
{SAVE TSSR 

{ERROR COUNT 
{REWIND NOT ACCEPTED 

TRAP 

.WORD 

.WORD 

.WORD 



C$ERHRD 
316 

T31WDC 
PKTSSR 

C$CLP1 



{LOOP IF SELECTED 

{PICK UP XSTO 

;SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

;DOES EXP • REC'D 

{BR, IF EQUAL (OK) 

{ERROR COUNT 
: TAPE NOT AT BOT AFTER 



TRAP 



C$ERHRD 
317 

T31RWN 
EXPREC 

C$CLP1 



REWIND 




TRAP 


C$ERHRD 


.WORD 


318 


.WORD 


T31B0T 


.WORD 


EXPREC 



{LOOP IF SELECTED 

TRAP C$CLP1 
{INITIALIZE, CVC-1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
{SET UP RECORD SIZE IN PACKET 
{ISSUE COMMAND 
{WAIT FOR SSR TO SET 
{GCT TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

{ERROR COUNT 
INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 319 
.WORD T31RDF 
.WORD PKTSSR 



{SET 
{ARE 
{BR, 

{TSSR 



Gil 



TEST L - HARDWARE TEST 


1-8 TEST MACRO t 


TEST 3; NO-OP 


( "CLEAN 


TAPE") AND INIT3 


2186 042764 






042764 


104406 




2187 042766 


013701 


043220 


2188 042772 


010102 




2189 042774 


052702 


000002 


2190 043000 


020102 




2191 043002 


001406 




2192 043004 


005237 


002214 


2196 043010 






043010 


104456 




043012 


000500 




043014 


044345 




043016 


015554 




2197 043020 






043020 


104406 




2198 043022 


012737 


140001 043310 


2199 043030 


012704 


043310 


2200 043054 


012737 


000144 043316 


2201 043042 


010465 


000000 


2202 043046 


004737 


016330 


2203 043052 


016501 


000002 


2204 043056 


012702 


000200 


2205 043062 


020102 




2206 043064 


001406 




2207 043066 


005237 


002214 


2211 043072 






043072 


104456 




043074 


000501 




043076 


043344 




043100 


012126 




2212 043102 






043102 


104406 




2213 043104 


017701 


140^* 


2214 043110 


012702 


000144 


2215 043114 


020102 




2216 043116 


001406 




2217 043120 


005237 


002214 


2221 043124 






043124 


104456 




043126 


000502 




043130 


043410 




043132 


015554 




2222 043134 






2223 043134 






043134 






043154 


104403 




2224 043136 


023727 


002214 000017 


2225 043144 


103402 




2226 04 3146 


004737 


017262 


2227 043152 






2228 






2229 






2230 






2231 043152 


004737 


016536 


2232 043156 


10300? 




2233 043160 


000137 


041462 


2234 043164 







M1113 06-FEB-84 18;04 



280$ 



CKLOOP 



MOV 


T31BFRf6,Rl 


MOV 


R1.R2 


BIS 


#6IT1,R2 


CMP 


R1.R2 


BEQ 


285* 


INC 


FATFLG 


ERRHRD 


ERRN0,T31B0T, EXPREC 



285$ 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



290$ 



330$ 



999$ 

i 



163$ 



ENDSUB 



CMP 
BLO 
JSR 



JSR 
BCC 
JMP 
EXIT 



SEQ 136 



{LOOP IF SELECTED 

i PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

jBR, IF EQUAL COK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER 



{LOOP IF SFLECTED 



TRAP 



C$CLP1 



REWIND 




TRAP 


C$ERHRD 


.WORD 


320 


.WORD 


T31B0T 


.WORD 


EXPREC 



TRAP 



#140001, T31PK3 

#T31PK3,R4 

0100. ,T31SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

#SSR,R2 

R1.R2 

290$ 

FATFLG 

ERRN0,T31RDE,PKTSSR 



C$CLP1 



{REA0,ACK,LVC-1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER READ DATA 







TRAP 


C$ERHRD 






.WORD 


321 






.WORD 


T31RDE 






.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


QFREE.Rl 


{GET DATA READ 




MOV 


#100. ,R2 


{READ EXPECTED 




CMP 


R1.R2 


{DID TAPE STAY POSITIONED 




BEQ 


330$ 


;BR, IF EXPD - RECD 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0,T31WNH,EXPREC 


{TAPE POSITION NOT CORRECT AFTER INIT 






TRAP 


C$ERHPD 






.WORD 


322 






.WORD 


T31WNH 






.WORD 


EXPREC 



FATFLG, #15 

999$ 

PC.CKDROP 



PC.TSTl.OOP 
163$ 
T31L00P 
TST 



j >>>>>>*>>>>> END SUBTEST »»*»>>>»>»>> 

L 10052: 

TRAP C$ESU6 
iIS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 



jDO WE NEED TO ITERATE TEST 
jBR, IF NO LOOP REQUIRED 
{EXECUTE AGAIN 
jALL DONE THIS TEST 



Hll 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18;04 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



2235 

2236 

2237 

2241 

2242 

2243 

2244 

2245 

2246 

224 7 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2257 

2259 

2260 

2261 

2262 

2263 

2264 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 



043164 
043166 



043170 
043170 
043172 
043174 
043176 
043200 
043200 
043202 
043204 
043206 
043210 
043212 



043300 
043300 
043302 
043304 
043306 

043310 
043310 
043312 
043312 
043314 
043316 



043320 
043320 
043321 
043322 
043324 



043326 
043330 
043332 
043334 



043336 
043340 
043342 



104432 
003600 



100004 
043200 
000000 
000012 

043212 
000000 
000024 
000000 
000000 



043300 

100006 
043320 
000000 
000006 



100005 

003116 
000000 
000000 



010 

200 

000000 

000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



LOCAL STORAGE FOR THIS TEST 



T31PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T31DATA; 

.WORD 
.WORD 
.WORD 
.WORD 

T31DSW: .WORD 

T31BFR: .BLKW 



100004 

T31DATA 



10. 

T31BFR 



20, 





25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 



T31PK2: 



.-<.*10>6177770 



.WORD 
.WORD 
.WORD 
.WORD 



100006 
T BF2 

6. 



T31PK3 

T31RB: 
T31WB: 

T31SZ: 



T31BF2 
T31BS0 
T31BS1 
T31S2: 
T31S3: 



WORD 100005 



WORD 
WORD 
WORD 
EVEN 



BYTE 
BYTE 
WORD 
WORD 



FREE 







10 
200 





.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 

T31RN; .WORD 100205 

T31WDR; .WORD 100605 

T31C0N: .WORD 102205 

.WORD 177777 



T31CNT 
T31CNU 
T31DLY 



. WORD 
. WORD 
.WORD 



SEQ 137 



TRAP 
.WORD 



CIEXIT 

L10050 



j COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH 

j ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
j CHARACTERISTICS DATA BLOCK 
j ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE 
{MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COMMAND, AND ACK 
{ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



{BSELO AREA 
;BSEL1 AREA 
{SEL 2 AREA 
{DATA AREA 



{REREAD DATA (NEXT) 
{REREAD DATA RETRY 
{WRITE CONTINOUS 
{END OF DATA 



{TAPE TIMER COUNTER 
{TAPE TIMER COUNTER 
{DELAY COUNTER 



STORAGE 
STORAGE 



AREA 
AREA 



Ill 



TEST L - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 138 



2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 

2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2V 
2344 
2345 
2346 
234 7 
2348 
2349 
2350 
2351 
2352 
2353 
2354 



iLOCAL TEXT MESSAGES FOR TEST 



043344 
043410 
043471 
043543 
043612 
043707 
043771 
044041 
044116 
044177 
044233 
044345 
044440 
044540 
044617 
044674 
044743 
045016 
045065 
045140 
045230 
045303 
045356 
045431 
045520 
045602 
045664 
045752 
046040 

046161 
046236 
046343 
046446 
046543 



046610 
046610 
046614 

046620 
046624 
046630 
046632 
046636 
046642 
046644 
046650 
046652 



124 
124 
124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
116 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
116 

124 
124 
124 
104 
116 



123 
141 
141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
117 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
117 

123 
123 
123 
141 
117 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 



043170 
100004 
043200 

000012 
043212 

000024 
000000 



123 
160 
160 
123 
122 
123 
102 
123 
154 
122 
123 
160 
055 
122 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
055 

123 
123 
123 
164 
055 



T31RDE 

T31WNH 

T31WNG 

T31RDF 

T31RRF 

T31SC; 

T31L0R 

T31W0F 

T31L0Q 

T31SSR 

T31W0E 

T31B0T 

T31TIM 

T31E0T 

T31TM: 

T31RWN 

T31RNC 

T3.1AM3 

T310FL 

T31WDD 

T31WDC 

T31VCK 

T31BA; 

T31WSS 

T31L0N 

T31L0P 

T31PBP 

T31TRL 

T31NEF 

T51SCF 
T31TSA 
T31URF 
T31DTA 
TST31ID 

2 » 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TSSR Not Correct After READ Command' 

Tape Position Incorrect After INITIALIZE Command' 

Tape Position Incorrect After NOP Command' 

TSSR Incorrect After REAO DATA Command' 

REREAD Previous (Space Reverse, Read Forward) Command Foiled' 

POSITION (Space Command) Failed, TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT 1 

TSSR Not Correct After Illegal Mode Bits Set* 

Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALIZE Command, At BOT 

Tape Not At BOT After REWIND Command CBOT Not Set In XSTO)' 

NO-OP ("CLEAN TAPE") AND INITIALIZE"S Erase Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAD COMMAND Reject' 

rtewind (POSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR* 

TSSR Not Correct After REREAD DATA Command, 

REREAD DATA Command' 

VCK In Message Buffer' 

REREAD DATA Command' 

Command Not Accepted (RAM Read) 
Failed To Set RLL Bit In XSTO' 
Failed To Set RLS Bit In XSTO' 



SWB Bit Set' 



TSSR Not Correct After 
CVC Set. Didn' ' t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading Long Record 
Reading Long Record 



' Res » dual Byte Count Incorrect Aft«ir Short Record Read' 
'Reading Long Record Failed To Give Tape Status Alert' 
'NO-OP ("CLEAN TAPE") AND INITIALIZE, At First Record. Failed To Set RIB B?t 

'TSSR Not Correct After SPACE RECORDS Command' 

'TSSR Not Correct After NO-OP ("CLEAN TAPE") ANO INITIALIZE, Into BOT' 
'TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALIZE Command' 
'Data Compare Error, Data Read From Tape Not Equal To Written' 
.ASCIZ 'NO-OP ("Clean Tape") And INITIALIZE' 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; WRITE SUBSYSTEM MEMORY COMMAND 



j SAVE THE REGISTERS 

I START OF THE PACKET 

{WRITE SUBSYSTEM MEM, WITH ACK , 

» ADDRESS OF CHARAISTICS DATA BLOCK 

{EXTENDED ADDRESS 

l SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE ZERO 



J 
1 - 






T31REST 


SAVREG 






MOV 


0T31PACKET.R1 




MOV 


0100004, (Rl)* 




MOV 


4T31DATA,(R1)* 




CLR 


CRD* 




MOV 


#10. ,(R1)* 




MOV 


JT31BFR,(R1)* 




CLR 


(Rl)* 




MOV 


020. .(Rl)* 




CLR 


CR1)» 




MOV 


00, (Rn 



Jll 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 139 



2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2370 
2379 
2380 
2381 
2382 



2383 
2384 
2385 
2386 
2387 
2388 
238s 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 



046656 
046662 
046670 
046672 
046676 
046700 

046702 
046702 
046706 
046712 
046716 
046722 
046724 
046730 
046732 
046736 
046740 
046742 
046744 
046744 
046750 
046754 
046756 
046760 
046762 
046764 
046766 
046766 
046766 



012702 000030 

012762 177777 043212 

005742 

022702 000000 

001371 

000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



043300 
100006 
043320 

000006 

043320 



043310 



MOV 


024., R2 


64$; MOV 


0177777, T31BFR(R2) 


TST 


-CR2) 


CMP 


00, R2 


BNE 


64$ 


RTS 


PC 


T31RT2: 

SAVREG 




MOV 


♦T31PK2.R1 


MOV 


0100006, (Rl)* 


MOV 


0T31BF2,(R1)+ 


CLR 


(Rl)» 


MOV 


06. ,(R1V 


CLR 


(Rl)» 


MOV 


OT31BF2,Rl 


CLR 


(Rl)* 


CLR 


(Rl) 


RTS 


PC 


T31RT3: 




SAVREG 




MOV 


OT31PK3.R1 


CLR 


CRD* 


CLR 


(Rl)* 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





i NUMBER OF LOCATIONS TO BE CLEARED 

j ALL ONES TO MESSAGE BUFFER 

,NEXT LOCATION 

t AT END OF l^no yct 

{KEEP GOING 

j RETURN 



LOOP YET 
UNTIL DONE 



{SAVE THE REGISTERS 

{START OF THE PACKET 

j WRITE SUBSYSTEM MEM. WITH ACK , 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



{RETURN 



ADDRESS 



iSAVE REGISTERS 

{SET UP POINTER 

{COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

jEXTENOED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

{RETURN 



L10050: 



.SBTTL TEST 4; Erose And Operation Incomplete 



TRAP 



C$ETST 



VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 

1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 

4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND . 



Kll 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 4; ERASE AND OPERATION INCOMPLETE 



06-FEB-84 18:04 



SEQ 140 



2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 

2419 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 



2446 
2447 
2448 
2449 
2450 
2451 
2452 



046770 
046770 
046770 
046/76 
047002 
04 7006 
047014 



2453 

2454 
2455 
2459 
2460 



047020 



047020 
047020 
047020 
047022 
047026 
047032 
047036 
04 7044 
047050 
047052 
047052 
04 7056 
04 7060 
047064 
047066 
047072 
04 7074 
04 7100 
04 7102 
04/106 
047110 
047114 
047116 
047116 
047120 



012737 
012700 
004737 
012737 
005037 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

01272/ 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000621 



THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



BGNTST 



006354 002172 

052640 

016570 

000005 002210 

051510 



MOV 


0EPRT1.EPRTSW 


MOV 


STST32ID.R0 


JSR 


PC.TSTSETUP 


MOV 


O5.L00PCNT 


CLR 


T32CNT 



T4:: 
{PRIMARY ERROR MESSAGE 
{ASCII MESSAGE TO IDENTIFY TEST 
{DO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
{CLEAR TAPE RECORD COUNTER 



TEST 4, SUBTEST 1 



VERIFIES THAT A Erase And Operation Incomplete COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
{TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
ERROR BIT SET. 



T32L00P: 



BGNSUB 



052700 

052772 

053022 

176750 051514 

016054 



000250 
002116 
177772 
177756 
051514 
002214 



10$; 



JSR 


PC,T32REST 


JSR 


PC.T32RT2 


JSR 


PC.T32RT3 


MOV 


$65000. ,T32DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T32DLY 


i 


BNE 


10$ 


J 


INC 


FATFLG 




MOV 


R0.R1 


• 


ERRDF 


ERRNO , SK IERR , SF IMSG 


i 



>>>>>>>>>*>> BEGIN SUBTEST > >>** >>>>>> > 

T4.lt 

TRAP C5BSU6 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET LIP OTHER COMMANO PACKET 
SET UP DELAY COUNTER 
DO INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 
DELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 
BUMP COUNTER 
BR, IF COUNTER NOT DONE 

, ERROR COUNT 
CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 

TRAP C$1 RDF 

.WORD 401 



0250. (PC)* 



L$DL> .(PC)* 



-6(pc:) 

. -4 

-22CPC) 
. -20 



Lll 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO Ml 113 
TEST 4; ERASE AND OPERATION INCOMPLETE 



20$ 



06-FEB-84 18:04 



04 7122 


003646 






047124 


012114 






2461 047126 


C13737 


002174 


051350 


2462 047134 


012704 


051330 




2463 047140 


004737 


010742 




2464 047144 


103407 






2465 047146 


005237 


002214 




2469 047152 


010001 






2470 047154 








04 7154 


104456 






047156 


000622 






047160 


005052 






04^162 


012114 






2471 047164 








047164 


104406 






2472 047166 


004737 


011074 




2473 047172 


103411 






24 74 04 7174 


010004 






2475 047176 


0*6501 


000002 




24 76 04 7202 


005237 


002214 




2480 04 7206 








047206 


104456 






047210 


000623 






047212 


051700 






047214 


012126 






2461 047216 








047216 


104406 






2482 047220 


012703 


000400 




2483 047224 


013737 


003116 


051452 


2484 047232 


012737 


140005 


051450 


2485 047240 


012704 


051450 




2486 047244 


010337 


051456 




2437 047250 


010465 


000000 




2488 047254 


004737 


016330 




2489 04 7260 


016501 


000002 




2490 047264 


012702 


000200 




2491 047270 


020102 






2492 047272 


001406 






2493 047274 


005237 


002214 




2497 047300 








047300 


104456 






04 7302 


000624 






04 7304 


052536 






047306 


012126 






2498 047310 








047310 


104406 






2499 047312 


005723 






2500 047314 


020327 


001002 




2501 047320 


001351 






2502 04 7322 


004/37 


011074 




2503 04 7326 


103411 






2504 047330 


016501 


000002 




2505 04 7334 


010004 






2506 047336 


005237 


002214 




2510 04 7342 








047342 


104456 






047344 


000625 







MGV 


UNITN.T32DSW 


MOV 


OT32PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


25$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



25$ 



CKLOOP 



26$ 



27$ 



28$ 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



0256., R3 
FREE.T32WB 
#140005, T32PK3 

*T32PK3,R4 

R3.T32SZ 

R4.TSDBCR5) 

PC,WAITF 

TSSR(R5).Rl 

0SSR.R2 

R1.R2 

28$ 

FATFLG 

ERRN0.T32WDC, PKTSSR 



SEQ 141 



.WORD SFIERR 
.WORD SFIMSG 

jSET UP DRIVE NUMBER 

i SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTICS 

{BR, IF COMMAND ISSUED OK 
;ERROR COUNT 

j SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC 



FAILED 




TRAP 


C$ERHRD 


.UORD 


402 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



JSR 


PC, REWIND 


>CAL 


BCS 


26$ 


•BR, 


MOV 


R0,R4 


{SET 


MOV 


TSSR(R5),R1 


{GET 


INC 


FATFLG 




ERRHRD 


ERRN0,T32RWN, PKTSSR 


;REW 



{LOOP IF SELECTED 

TRAP 
TAPE REWIND COMMAND 
IF NO PROBLEM 
UP REWIND PACKET ADDRESS 
TSSR CONTENTS 

{ERROR COUNT 
ND NOT ACCEPTED 

TRAP 
.WORD 
. WORD 
.WORD 



C$CLP1 



{LOOP IF SELECTED 



C$ERHRD 
403 

T32RWN 
PKTSSR 



TRAP 



C$CLP1 



^STARTING RECORD SIZE 

{STARTING WRITE BiJFFER ADDRESS 

{WRITE DATA.CVC-l.ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

,SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF OK 

l ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 



{LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


404 


.WORD 


T32WDC 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



TST 


(R3)* 




{BUMP 


CMP 


R3.0514, 




;AT r 


BNE 


27$ 




;BR. 


JSR 


PC, REWIND 




{CALL 


BCS 


30$ 




tBR, 


MOV 


TSSR(R5),R1 




{GET 


MOV 


R0,R4 




;SET 


INC 


FATFLG 






ERRHRD 


ERRN0.T32RWN, 


.PKTSSR 


jREWI 



RECORD COUNTER 
MAX SIZE YET 
IF NOT AT END OF LOOP 

TAPE REWIND COMMAND 
IF NO PROBLEM 
TSSR CONTENTS 
UP REWIND PACKET ADDRESS 

j ERROR COUNT 
ND NOT ACCEPTED 

TRAP 
.WORD 



C$ERHRD 
405 



Mil 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST Ax ERASE AND OPERATION INCOMPLETE 



06-FEB-84 18:04 



SEQ 142 



2511 

2512 
2513 
2514 
2515 
2516 
2517 
2521 



2522 

2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2535 



2536 

2537 
2538 
2539 
2540 
2541 
254? 
2546 



2547 

2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 



047346 

04 7350 

047352 

047352 

047354 

047360 

04 7362 

047366 

04 7370 

047372 

047376 

047376 

047400 

047402 

047404 

047406 

047406 

047410 

047416 

047422 

047426 

047432 

047436 

047442 

04 7444 

047446 

047452 

047452 

04 7454 

047456 

047460 

047462 

047462 

047464 

047470 

047472 

047476 

047500 

047502 

047506 

04 7506 

047510 

047512 

047514 

047516 

047516 

04 7520 

047526 

04 7534 

047542 

04 7546 

047552 

047556 

04 7562 

04 7566 

047570 

Q47572 



051700 
012126 

104406 

013701 051360 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
000626 
052366 
015554 



30$; 



104406 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
00062 7 
052016 
012126 

104406 
013701 
010102 
042702 
020102 
001406 
005237 

104456 
000630 
052366 
015554 

104406 
013737 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 



40$: 



140411 051450 

051450 

000000 

016330 

000002 

000200 



002214 



051360 
000002 

002214 



003116 
140401 
000400 
051450 
000000 
016330 
000002 
100204 



002214 



50$ 









.WORD 


T32RWN 








.WORD 


PKTSSR 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T32BFR*6,R1 




jPICK UP XSTO 




MOV 


R1.R2 




j SET UP EXPECTED 




BIS 


#BIT1,R2 




{SET BOT BIT IN EXPECTED 




CMP 


R1.R2 




{DOES EXP - REC'D 




BEQ 


40$ 




I BR. IF EQUAL (OK) 




INC 


FATFLG 




jERROR COUNT 




ERRHRD 


ERRN0.T32B0E, 


,EXPREC 


jTAPE AT BOT AFTER ERASE 

TRAP 
.WORD 

.WORD 
.WORD 


C$ERHRO 
406 

T32B0E 
EXPREC 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


O140411.T32PK3 


{ERASE TAPE,CVC«1,ACK COMMAND 




MOV 


4T32PK3.R4 




,SET UP R4 WITH PACKET ADDRESS 




MOV 


R4.TSDBCR5) 




{ISSUE COMMAND 




JSR 


PC.WAITF 




{WAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 




{GET TSSR CONTENTS 




MOV 


*SSR,R2 




;SET UP EXPECTED 




CMP 


R1.R2 




{ARE THEY EQUAL 




BEQ 


50$ 




j BR, IF OK 




INC 


FATFLG 




jERROR COUNT 




ERRHRD 


ERRN0.T32ERA, 


.PKTSSR 


jTSSR INCORRECT AFTER ERASE DATA 








TRAP 


C$ERHRD 








.WORD 


407 








.WORD 


T32ERA 








.WORD 


PKTSSR 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T32BFR*6,R1 




;PICK UP XSTO 




MOV 


R1.R2 




{SET UP EXPECTED 




BIC 


06IT1.R2 




{SET BOT BIT IN EXPECTED 




CMP 


R1.R2 




iDOES EXP - REC'O 




BEQ 


55$ 




{BR, IF EQUAL (OK) 




INC 


FATFLG 




{ERROR COUNT 




ERRHRD 


ERRN0.T32B0E 


, EXPREC 


{TAPE NOT AT BOT AFTER REWIND 





55$ 



CKLOOP 



051452 
051450 
051456 



REWIND 




TRAP 


C$ERHRD 


.WORD 


408 


.WORD 


T32B0E 


.WORD 


EXPREC 



{LOOP IF SELECTED 



TRAP 



C$CLP1 



MOV 


FREE.T32RB 


MOV 


$140401, T32PK3 


MOV 


0256. , T32SZ 


MOV 


0T32PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 



{ADDRESS OF BUFFER 

,-READ REVERSE, ACK.CVC-1 COMMAND 

{SET l£> THE SIZE OF RECORD 

j SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

jWAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED TAPE STATUS ALERT 

{ARE THEY EQUAL 

}BR, IF OK 

{ERROR COUNT 



Nil 



TEST 1 - HARDWARE TEST 1-0 TEST MACRO M1113 
TEST 4; ERASE AND OPERATION INCOMPLETE 



06-FEB-84 18s04 



2562 



2565 

2564 
2565 
2566 
2567 
2568 
2569 
2573 



2574 
2575 



2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
260 7 
2608 
2609 
2610 



047576 
047576 
0A 7 600 
047602 
047604 
047606 
047606 
047610 
047614 
047616 
047622 
047624 
047626 
047632 
047632 
047634 
047636 
047640 
047642 
047642 
047642 
047642 
047644 
047652 
04 7654 
047660 



104456 
000631 
052311 
012126 

104406 

013701 051366 

010102 

052702 000001 

020102 

001406 

005237 002214 

104456 
000632 
052136 
015554 



104403 

023727 002214 000017 

103402 

004737 017262 



180$ 



ERRHRD ERRN0,T32TSA,PKTSSR 



CKLOOP 



MOV 


T32BFR*14,R1 


MOV 


R1,R2 


BIS 


tfBIT0,R2 


CMP 


R1.R2 


BEQ 


190$ 


INC 


FATFLG 



F.'WSIO ERRNO , T32RIB , EXPREC 



SEQ 143 



;TSSR INCORRECT AFTER 



{LOOP IF SELECTED 

{GET XST3 STATUS WORD 

{SET UP EXPECTED 

;SET THE RIB BIT 

{ARE THEY EQUAL 

{BR, IF EQUAL (GOOD) 
{ERROR COUNT 

;RIB SHOULD BE SET 



READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
409 
T32TSA 
PKTSSR 

C$CLP1 



190$ 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
410 
T32RIB 
EXPREC 



ENDSU6 



CMP 
BLO 
JSR 



999$ 



FATFLG, #15 

999$ 

PC.CKDROP 



•>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10054: 

TRAP C$ESUB 
{IS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 



TEST 4, SUBTEST 2 



VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS, THE TEST SEQUENCE IS: 

1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE APE IS REWOUND AGAIN. 

2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
RECORDS, 

3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

5. A READ REVERSE COMMANO IS ISSUED. IT IS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD, THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 
PREVIOUS RECORD WAS NOT CORRUPTED. 



HI 2 



TEST l - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 4; ERASE AND OPERATION INCOMPLETE 



06-FEU-04 I8s04 



5EQ 144 



2611 
2612 
2613 
2C14 



2t»15 
2616 
2617 
2618 
2619 
2620 
2624 
2625 



2626 
2627 
2628 
2629 
2630 
2634 
2635 



2636 

2637 
2638 
26 39 
2640 
2644 



2645 

2646 
264 7 
2648 
2649 
2650 
2651 
2655 



2656 

.''.5/ 
26bfl 



l 



047660 

04 7660 

04 7660 

04 7662 

04 7666 

047672 

047676 

04 7 702 

047704 

047710 

047712 

047712 

047714 

047716 

04 7 720 

04 7 722 

047730 

047734 

047740 

047742 

047746 

04 7 750 

047750 

047752 

047754 

047756 

04 7 760 

04 7 760 

04 7 762 

04 7 766 

047770 

04 7 7 72 

04 7 7 76 

047776 

050000 

050002 

050004 

050006 

C 50006 

050010 

05O014 

050016 

050022 

050024 

050026 

05O032 

050032 

050034 

050036 

050040 

050042 

05004? 

050044 

Q5OO50 



104402 
004737 
004737 
004737 
004737 
103407 
005237 
010001 

104455 
000633 
003646 
012114 
013737 
012704 
004737 
105407 
005237 
010O01 

104456 
000634 
005052 
012114 

104406 
004737 
103407 
010OO4 

005237 

1C*456 
000635 
051700 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000636 
051516 
015554 

104406 
012705 

Q103QQ 



BGNSU6 



052700 
052772 
053022 
016054 

002214 



JSR 


PC,T32REST 


JSR 


PC.T32RT2 


JSR 


PC.T32RT3 


JSR 


PC, SOT INIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


R0.R1 


CRRDF 


ERRNO.SFIERR.SFIMSG 



00217A 
051330 
010742 

002214 



051350 20* ! 



MOV UNITN.T320SW 

MOV #T32PACKET,R4 

JSR PC.URTCHR 

BCS 23$ 

INC FATFLG 

MOV R0.R1 



23$: 



011074 
002214 



30$j 



CKLOOP 



051360 
000002 

002214 



!>>>>>>>>>>><» BEGIN SUBTEST >>>>>>>>•>>>> 

T4.2: 

TRAP C$BSUB 

I SET COMMANO PACKET 

I SET UP OTHER COMMANO PACKET 

I SET UP OTHER COMMANO PACKET 

iDO INITIALIZE ON CONTROLLER 

»BR IF INIT WAS OK 

, ERROR COUNT 

iCONTENTS Of" TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 411 
.WORD SFIERR 
.WORD SFIMSG 

iSET UP UNIT NUMBER IN PACKF T 

i SUBROUTINE NEEDS PACKET AOORESS 

1 ISSUE WRITE CHARACTERISTICS 

|BR. IF COMMANO ISSUED OK 
lERROR COUNT 

I SAVE CONTENTS OF TSSR 



ERRHRD 


ERRNO.WRTMSG, 


,SFIMSG 


iWRITE CHARACTERISTIC fAlLEO 












TRAP 


C$ERHRD 










.WORD 


412 










.WORD 


WRTM5G 










.WORD 


SFIMSG 


CKLOOP 








lLOOP IF SELECTED 

TRAP 


CSCLPl 


JSR 


PC. REWINO 






iCALL TAPE REWINO COMMANO 




BCS 


30$ 






iBR. IF NO PROBLEM 




MOV 


R0.R4 






»SET UP REWIND PACKET ADDRESS 




INC 


FATFLG 






lERROR COUNT 




ERRHRD 


ERRN0.T32RWN, 


,PKT' 


SiSR 


1 REWINO NOT ACCEPTED 





MOV 


T32BFR.6.R1 


MOV 


Rl.Ri- 


BIS 


#BIT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


tRRHRD 


ERRNO l T32BOT,LXPREC 



i LOOP If SELECTED 

,PICK UP XSTO 

iSET UP EXPECTFD 

1 SE T BOT BIT IN FXPECTED 

i DOES EXP • PECO 

I BR, IF EQUAL (0K> 

lERROR COl^T 
i TAPE NOT AT BOT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
413 

T52RWN 
PKTSSR 

C$Cl PI 



40$: 



000144 



CKt OOP 

MOV 
MOV 



0100. iR5 

RJ 4 RO 



llOOP IF SELECTFO 

I STARTING RECORD SUE 
|StT UP MEMQRi FILL 



REWINO 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$fcRHRl) 
414 

T3.mr 
t xprh: 

OCLPl 



Clc 



Tiif 



2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2666 
2669 
2670 
2671 
26 72 
2676 



2677 

2678 
2679 
2680 
2681 
2682 
2683 
2684 
2688 



2689 

2690 
2691 
2692 
2693 

2694 

2695 
2699 



2700 

2701 
2702 
2703 
2 704 
2705 
2706 
2707 
2708 
2709 



050052 

050056 

050064 

050072 

050076 

050100 

050104 

050110 

050114 

050120 

050124 

050130 

050132 

050134 

050140 

050140 

050142 

050144 

050146 

050150 

050150 

050152 

050154 

050160 

050162 

050166 

050170 

050172 

050176 

050176 

050200 

050202 

050204 

050206 

050206 

050210 

050214 

050216 

050222 

050224 

050226 

050232 

050232 

050234 

050236 

050240 

050242 

050242 

050244 

050250 

050254 

050262 

050266 

0502 72 

050276 

050302 

050306 



wmtkUHhmm 


L113 


06-FEB-84 


004737 


017502 






JSR 


013737 


003116 


051452 




MOV 


012737 


140005 


051450 


65$ i 


MOV 


012704 


051450 






MOV 


010300 








MOV 


004737 


017502 






JSR 


010337 


051456 






MOV 


010465 


000000 






MOV 


004737 


016330 






JSR 


016501 


000002 






MOV 


012702 


000200 






MOV 


020102 








CMP 


001406 








BEQ 


005237 


002214 






INC 
ERRHRD 



18;04 



104456 
000637 
052536 
012126 

104406 
005723 
020327 
001341 

004737 
103407 
010001 
005237 

104456 
000640 
051700 
015554 

104406 
013701 
010102 
052/02 
020102 
001406 
005237 

104456 
000641 
051516 
015554 

104406 
012703 
004737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 



000156 
011074 

002214 



051360 
000002 

002214 



000001 
010544 
140411 
051450 
000000 
016330 
00000? 
000200 



80$: 



230$ 



CKLOOP 

1ST 
CMP 
BNE 
JSR 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



2401 t CKLOOP 



05145Q 265$ j 



PC.FILLMEM 

FR£E»T32UB 

0140005, T32PK3 

0T32PK3.R4 

R3,R0 

PC.FILLMEM 

R3,T32SZ 

R4,TSDBCR5) 

PC, WAITr 

TSSRCR5),R1 

*SSR.R2 

R1.R2 

80$ 

FATFLG 

ERRN0,T32WDC,PKTSSR 



(R3)» 
R3.4110. 

65$ 

PC, REWIND 

230$ 

R0,R1 

FATFLG 

ERRN0,T32RWN,EXPREC 



MOV 


T326FR*6,R1 


MOV 


R1.R2 


BIS 


•6IT1.R2 


CMP 


R1.R2 


BEQ 


240) 


INC 


FATFLG 


ERRHRD 


ERRN0,T32B0T,EXPREC 



MOV 


©l,R3 


JSR 


PC, SPACE 


MOV 


♦ 1404U.T32PK3 


MOV 


*T52PK3,R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5) t Rl 


MOV 


0SSR.R2 


CMP 


RI.R2 



5EQ 145 



I CALL MEMORY FILLER 

j STARTING WRITE BUFFER ADDRESS 

, WRITE DATA, CVC"1, ACK COMMAND 

i SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

1 ISSUE COMMAND 

iWAIT FOR SSR TO SET 

|GET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

l BR, IF OK 

i ERROR COUNT 
j TSSR INCORRECT AFTER WRITE DATA 



»L0OP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
COUNTER 



jBUMP RECORD SIZE 

|AT 160 SIZE YET 

iBR, IF MORE RECORDS TO WRITE 

l CALL TAPE REWIND COMMANO 

i BR. IF NO PROBLEM 

i SAVE TSSR 

jERROR COUNT 

iREWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
415 
T32W0C 
PKTSSR 

C$CLP1 



iLOOP IF SELECTED 

»PICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

jDOES EXP • REC'D 

iBR, IF EQUAL (OK) 

I ERROR COUNT 
»TAPE NOT AT BOT AFTER 



TRAP 



C$ERHRD 
416 
132RWN 
EXFREC 

C$CLP1 



PEWINO 




TRAP 


C$ERHRO 


.WORD 


417 


.WORD 


T32B0T 


.WORD 


EXPHEC 



iLOOP IF SELECTED 

TRAP 
I SET UP FOR SPACE COMMANO 
I ISSUE SPACE COMMANO 1 FORWARD 
lERASE DATA.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
l ISSUE COMMANO 
,WAIT FOR SSR TO SET 
jGE T TSSR CONTENTS 
jSET UP EXPECTED 
j /IRE THEY EQUAL 



C$OJH 



Die 



J 



\m i ai m£%Dm*kite*&w®& iis ° 6 



2710 050510 


001406 




2 711 050312 


005237 


002214 


2715 050316 






050316 


104456 




050320 


000642 




050322 


052016 




^50524 


012126 




27 lo >0326 






050326 


104406 




2717 050330 


013737 


003116 051452 


2718 050336 


012737 


140401 051450 


2719 050344 


012737 


000144 051456 


2720 050352 


012704 


051450 


2721 050356 


010465 


000000 


2722 050362 


004737 


016330 


2723 050366 


016501 


000002 


2724 050372 


012702 


000200 


2725 050376 


020102 




2726 050400 


001406 




2727 050402 


005237 


002214 


2731 050406 






050406 


104456 




050410 


000645 




050412 


052311 




050414 


012126 




2732 050416 






050416 


104406 




2733 050420 


017701 


132472 


2754 050424 


012702 


000144 


2755 050430 


020102 




2736 050432 


001406 




2737 050434 


005237 


002214 


2741 050440 






050440 


104456 




050442 


000644 




050444 


052455 




050446 


015554 




2742 050450 






050450 


104406 




2743 050452 






2744 050452 






050452 






050452 


104403 




2745 050454 


023727 


002214 000017 


2746 050462 


103402 




274 7 050464 


004737 


017262 


2748 050470 






2749 






2750 






2751 






2752 






2753 






2754 






2 755 






2 756 






2757 






2758 







280$ 



FEB-84 


16:04 


SEU 146 






BEQ 


280$ 


1 BR, IF OK 






INC 


FATFLG 


i ERROR COUNT 
iTSSR INCORRECT AFTER 






ERRHRD 


ERRN0,T32ERA, PKTSSR 


READ DATA 










TRAP 


C$ERHRD 








.WORD 


418 








,UORO 


T32ERA 








.WORD 


PKTSSR 


CKLOOP 




jLOOP IF SELECTED 


TRAP 


C$CLPl 


MOV 


FREE.T32RB 


i ADDRESS OF BUFFER 






MOV 


0140401 ,T32PI<3 


;READ REVERSE, ACK,CVC« 


■1 COMMAND 




MOV 


0100, .T32SZ 


{SET UP THE SIZE Of RECORD 




MOV 


0T32PK3.R4 


I SET UP R4 WITH PACKET ADDRESS 




MOV 


R4.TSDBCR5) 


I ISSUE COMMAND 






JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 






MOV 


TSSR(R5),R1 


I GET TSSR CCN'iENlS 






MOV 


0SSR.R2 


jSET UP EXPECTED TAPE 


STATUS ALERT 


CMP 


R1.R2 


,ARE THEY EQUAL 






BEQ 


290 $ 


,BR, IF OK 






INC 


FATFLG 


, ERROR COUNT 






ERRHRD 


ERRN0 t T32TSA, PKTSSR 


»TSSR INCORRECT AFTER 


READ DATA 





290$: 



300$: 
330$: 



TRAP 
.WORD 
.WORD 
.WORD 



CIERHRO 
419 
T32TSA 
PKTSSR 



CKLUOP 




lLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


SPREE, Rl 


iGET DATA READ 






MOV 


0100. ,R2 


j SHOULD BE 100 






CMP 


R1.R2 


; CHECK- EM OUT 






BEQ 


300$ 


|BR, IF OK 






INC 


FATFLG 


jERROR COUNT 






ERRHRD 


ERRN0,T32ECF, EXPREC 


i ERASE COMMAND DION' T 


WORK 
TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
420 
T32ECF 
EXPREC 


CKLOOP 




lLOOP IF SELECTED 


TRAP 


C$CLP1 


ENDSU6 




;>>>>>>>>>>>> END SUBTEST >>>■»: 

L10055: 


► >•>>»>»> 








TRAP 


C$ESUB 


CMP 


FATFLG. 015. 


iIS ERROR COUNT AT 25 




BLO 


999$ 


jBR, IF LESS 


THAN ."'5 




JSR 


PC»CKDROP 


;TRY TO DROP 


THE UNIT 





999$ 



{TEST 4, SUBTEST 3 



VERIFIES THAT AN ERASE COMMANO ENCOUNTERING THE EOT MARKER. OR 
EXECUTED BEYONO THE EOT MARKER, CAUSES TAPE STATUS ALERT 
TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNRECOVERABLE ERROR TERMINATION ANO OPERATION 
INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE IS EXECUTED: 



E12 



TEST L - HARDWARE. TEST 1-8 TEST MACRO M1113 
TEST 4: ERASE AND OPERATION INCOMPLETE 



2759 
2760 
2761 
2762 
2763 
2764 
2765 
2 766 
2767 
2768 
2769 
2770 
2771 
2772 
2775 
2774 
2775 
2776 
277 7 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 



06-FEB-84 18{04 



5EQ 147 



1. THE TAPE IS REWOUND. 

2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
THAN NORMAL CWITH EOT-0) OR TAPE STATUS ALERT (WITH 
EOT-1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 
THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS 
ABORTED. 

3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 
WITH EOT-1. 

4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
(ISSUED IN THE ORDER GIVEN) RESIXTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI-1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
(OPP-0) REREAD PREVIOUS (OPP-1) REREAD NEXT (OPP-1) 
REREAD NEXT COPP-O) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 



2788 
2789 
2790 
2791 
2792 
2793 
2794 



2795 
2796 
2797 
2801 
2802 



2803 
2804 



0504 70 
0504 70 
0504 70 
0504 72 

0504 76 
050502 
050506 
050514 
050520 
050522 
050522 
050526 
050530 
050534 
050536 
050542 
050544 
050550 
050552 
050556 
050560 
050564 
050566 
050566 
050570 

0505 72 
050574 
0505 76 
050604 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000645 
003646 
012114 
013737 
052737 



J - 



052700 

052772 

053022 

176750 051514 

016054 10$ 



000250 
002116 
177772 
177756 
051514 
002214 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



002174 051350 20$ 
000040 051350 



DEC 

BNE 
INC 
MOV 
ERRDF 



MUV 
BIS 



PC.T32REST 

PC»T32RT2 

PCT32RT3 

$65000. ,T32DLY 

PC.SOFINIT 

20$ 

250 



T320LY 

10$ 

FATFIG 

R0.R1 

ERRNO,SFIERR,SFIMSG 



UNITN,T32U'3W 
0BIT5,T32DSW 



I >>> *>>>>>>>> BEGIN SUBTEST >>>>>>>>>*>> 


T4.3; 




TRAP 


c$Bsue 


i SET COMMAND PACKET 




j SET UP OTHER COMMANO PACKET 




j SET UP OTHER COMMANO PACKET 




tSET UP DELAY COUNTER 




iDO INITIALIZE ON CONTROLLER 




iBR IF INIT WAS OK 




I DELAY ABOUT .25 SEC 




MOV 


*250,(PC:u 


.WORD 





MOV 


L$DLY ,(PC)t 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


iBUMP COUNTER 




jBR, IF COUNTER NOT DONE 




j ERROR COUNT 




jCONTENTS OF TSSR REGISTER 




jFATAL ERROR TSSR WAS NOT OK 




TRAP 


CSERDF 


.WORD 


421 


.WORD 


SFIf.RH 


.WORD 


SFIMSG 


j SET UP UNIT (DRIVE) NUMBER 




l TURN ON HIGH SPEED TO SAVE TIME 



F12 



TEST 1 - HARDWARE TEST 


1-8 TEST MACRO M1113 


06-FEB-84 


18:04 


TEST 4; ERASE , 


AND OPERATION INCOMPLETE 








2805 050612 


012704 


051330 




MOV 


OT32PACKET.R4 


2806 050616 


004 737 


010742 




JSR 


PC.WRTCHR 


2807 050622 


103407 






BCS 


23$ 


2808 050624 


005237 


002214 




INC 


FATFLG 


2812 050630 


010001 






MOV 


R0.R1 


2813 050632 








ERRHRD 


ERRNO,WRTMSG,SFlMSG 


050632 


104456 










050634 


000646 










050636 


005052 










050640 


012114 










2814 050642 






23*j 


CKLOOP 




050642 


104406 










2815 050644 


004737 


011074 




JSR 


PC.REWIND 


2816 050650 


103411 






BCS 


30$ 


2817 050652 


016501 


000002 




MOV 


TSSR(R5),R1 


2818 050656 


010004 






MOV 


R0,R4 


2819 050660 


005237 


002214 




INC 


FATFLG 


2823 050664 








ERRHRD 


ERRN0.T32RWN. PKTSSR 


050664 


104456 










050666 


000647 










050670 


051700 










050672 


012126 










2824 050674 






30$: 


CKLOOP 




050674 


104406 










2825 050676 


013701 


051360 




MOV 


T32BFRf6,Rl 


2826 050702 


010102 






MOV 


R1.R2 


2827 050704 


052702 


000002 




BIS 


06IT1.R2 


2626 050710 


020102 






CMP 


R1.R2 


2829 050712 


001406 






BEQ 


40$ 


2830 050714 


005237 


002214 




INC 


FATFLG 


2834 050720 








ERRHRD 


ERRNO,T32B0T,EXPREC 


050720 


104456 










050722 


000650 










050724 


051516 










050726 


015554 










2835 050730 






40$: 


CKLOOP 




050730 


104406 










2836 050732 


012737 


140411 051450 


65$: 


MOV 


$140411, T32PK3 


2837 050740 


012704 


051450 




MOV 


0T32PK3.R4 


2838 050744 


010337 


051456 




MOV 


R3.T32SZ 


2839 050750 


010465 


000000 




MOV 


R4.TS0BCR5) 


2840 050754 


004737 


016330 




JSR 


PC.WAITF 


2841 050760 


016501 


000002 




MOV 


TSSRCR5),R1 


2842 050764 


012702 


000200 




MOV 


*SSR,R2 


2843 050770 


020102 






CMP 


R1.R2 


2844 050772 


001757 






BEQ 


65$ 


2845 050774 


032701 


000004 




BIT 


08IT2.R1 


2846 051000 


001006 






BNE 


80$ 


2847 051002 


005237 


002214 




INC 


FATFLG 


2851 051006 








ERRHRD 


ERRN0,T32WDC, PKTSSR 


051006 


104456 










051010 


000651 










051012 


052536 










051014 


012126 










2852 051016 






80$: 


CKLOOP 




051016 


104406 










2853 051020 


015701 


051360 




MOV 


T32BFR*6,Ri 



SEQ 148 



j SUBROUTINE NEEDS PACKET ADDRESS 
j ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 

j ERROR COUNT 
j SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



FAILED 




TRAP 


C$ERHRD 


.WORD 


422 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



{LOOP IF SELECTED 

TRAP C$CLP1 
j CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
jGET TSSR CONTENTS 
{GET PACKET ADDRESS 

{ERROR COUNT 
t REWIND NOT ACCEPTED 



{LOOP IF SELECTED 



TRAP 


C$ERHHD 


.WORD 


423 


.WORD 


T32RWN 


.WORD 


PKTSSR 



TRAP 



CSCLP1 



{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

,-BR, IF EQUAL (OK) 

{ERROR COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP CIF.RHRD 
.WORD 424 
.WORD T32B0T 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

{ERASE DATA,CVC-1,ACK COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

} BR, IF OK 

{CHECK FOR TAPE STATUS ALERT 

,*BR, IF TAPE STATUS ALERT SET 
{ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 



{LOOP IF SELECTED 
{PICK UP XSTO 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
425 
T32WDC 
PKTSSR 

C$CLP1 



G12 



TEST 
TEST 



HARDWARE TEST 1-8 TEST MACRO M1H3 
ERASE AND OPERATION INCOMPLETE 



2854 
2855 
2856 
2857 
2858 
2862 



2863 

2864 
2865 
2866 
286 7 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 



2879 
2880 
2881 
2885 



2886 

2887 
2888 
2889 
2890 
2891 
2892 
2896 



2897 



051024 

051026 

051032 

051034 

051036 

051042 

051042 

051044 

051046 

051050 

051052 

051052 

051054 

051060 

051066 

051072 

051076 

051102 

051106 

051114 

051120 

051126 

051132 

051136 

051142 

051144 

051146 

051146 

051152 

051154 

051160 

051162 

051166 

051170 

051174 

051176 

051202 

051204 

051210 

051210 

051212 

051214 

051216 

051220 

051220 

051222 

051226 

051230 

051234 

051236 

051240 

051244 

051244 

051246 

051250 

051252 

051254 



010102 
052702 
020102 
001406 
005237 

104456 
000652 
051611 
015554 

104406 
012703 
013737 
011337 
012704 
012700 
004 737 
012737 
010465 
012737 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
005237 

10445b 
000653 
052455 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000654 
052603 
015554 



000001 
002214 



051460 

003116 051452 

051450 

051450 

177777 

017502 

000144 051456 

000000 

000062 051514 

016330 

000002 

100214 



000250 
002116 
177772 
177756 
051514 
002214 



051366 
000100 

002214 



240$ 



265$ 



270$ 



280$ 



06-FEB-84 


18:04 




SEQ 149 




MOV 


R1.R2 




j SET UP EXPECTED 




BIS 


4BIT0.R2 




;SET EOT BIT IN EXPECTED 




CMP 


R1.R2 




{DOES EXP - REC'D 




BEQ 


240$ 




{BR, IF EQUAL COK) 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0,T32E0T, 


EXPREC 


j TAPE NOT AT EOT AFTER ERASE COMMANDS 








TRAP 


C$ERHRD 








.WORD 


426 








.WORD 


T32E0T 








.WORD 


EXPREC 


CKLOOP 






j LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


0T32CMD,R3 




j STARTING RECORD SIZE 




MOV 


FREE,T32RB 




{STARTING READ BUFFER ADDRESS 




MOV 


CR3),T32PK3 




{READ DA1A,ACK COMMAND 




MOV 


4T32PK3.R4 




{SET UP R4 WITH PACKET ADDRESS 




MOV 


*177777,R0 




;SET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 




{FILL MEMORY WITH ALL ONES 




MOV 


$100. ,T32SZ 




{SET UP RECORD SIZE IN PACKET 




MOV 


R4.TSDBCR5) 




{ISSUE COMMANO 




MOV 


050. .T32DLY 




{SET UP DELAY COUNTER 




JSR 


PC.WAITF 




{WAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 




tGET TSSR CONTENTS 




MOV 


$SSR!SC!BIT2! 


!BIT3,R2 


{SET UP EXPECTED 




CMP 


R1,R2 




{ARE THEY EQUAL 




BEQ 


280$ 




{BR, If OK 




DELAY 


250 




{DELAY FOR SSR TO BE SET 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


0250. (PC)- 


L*DLY.CPC)» 


-6CPC) 
.-4 

-22CPC) 
. -20 


DEC 


T32DLY 




{COUNT DELAY ROUTINE DOWN 




BNE 


270$ 




{BR, IF DELAY HAS NOT ENDED 




INC 


FATFLG 




{ERROR COUNT 




ERRHRD 


ERRN0.T32ECF, 


, PKTSSR 


i TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
427 
T32ECF 
PKTSSR 


: CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T32BFR*14.R1 




:PICK UP XST3 




MOV 


R1.R2 




{SET UP EXPECTED 




BIS 


0BIT6.R2 




{SET OPI BIT IN EXPECTED 




CMP 


R1.R2 




{IS OPI BIT SET 




BEQ 


290$ 




jBR, IF BIT IS SET 




INC 


FATFLG 




{ERROR COUNT 




ERRHRD 


ERRN0.T320PI 


, EXPREC 


{OPI BIT NOT SET 

TRAP 

.WORD 
.WORD 
.WORD 


C$ERHRD 
428 
T320PI 
EXPREC 



290$ 



CKLOOP 



{LOOP IF SELECTED 



H12 



TEST 1 - HARDWARE TEST 


1-8 TES 


TEST 4: ERASE 


AND OPERATION I 


051254 


104406 




2898 051256 


005723 




2899 051260 


021327 


177777 


2900 051264 


001300 




2901 051266 






051266 






051266 


104403 




2902 051270 


023727 


002214 


2903 051276 


103402 




2904 051300 


004737 


017262 


2905 051304 






2906 






2907 






2906 






2909 051304 


004737 


016536 


2910 051310 


103002 




2911 051312 


000137 


047020 


2912 051316 






051316 


104432 




051320 


001524 




2913 






2914 






2915 






2917 


051330 




2919 051330 






2920 051330 


100004 




2921 051332 


051340 




2922 051334 


000000 




2923 051336 


000012 




2924 051340 






2925 051340 


051352 




2926 051542 


000000 




2927 051344 


000024 




2928 051346 


000000 




2929 051350 


000000 




2930 051352 






2931 






2932 






2933 






2935 


051440 




2937 051440 






2938 051440 


100006 




2939 051442 


000000 




2940 051444 


000000 




2941 051446 


000006 




2942 






2946 051450 






2947 051450 


100005 




2948 051452 






2949 051452 


003116 




2950 051454 


000000 




2951 051456 


000000 




2952 






2953 






2954 






2955 






2956 







MACRO M1113 
INCOMPLETE 



06-FEB-84 18:04 



000017 



999$: 



TST CR3V 

CMP (R3), #177777 

BNE 265$ 

ENDSUB 



CMP FATFLG.415 

BLO 999$ 

JSR PC.CKDROP 



163$: 



JSR 


PC.TSTLOOP 


BCC 


163$ 


JMP 


T32L00P 


EXIT 


TST 



{LOCAL STORAGE 


FOR THIS 


,-<.*10>£177770 


T32PACKET: 




.WORD 


100004 


.WORD 


T32DATA 


.WORD 





.WORD 


10. 


T32DATA: 




.WORD 


T32BFR 


.WORD 





.WORO 


20. 


.WORD 





T32DSW: .WORD 





T32BFR; .BLKW 


25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 



J 
I 

T32PK2: 



.«<. *10>£17^770 





.WORD 


100006 




.WORD 







.WORD 







. WORD 


6. 


T32PK3: 








.WORD 


100005 


T32RB: 






T32WB; 


.WORD 


FREE 




.WORD 





T32SZi 


.WORD 





{ 

» 

t 
i 


.EVEN 





SEQ 150 



TRAP C$CLP1 
I BUMP COMMAND POINTER 
I AT END OF TABLE YET 
j BR, KEEP TRYING COMMANDS 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10056: 

TRAP C$ESU6 
}IS ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



j DO WE NEED TO ITERATE TEST 

} BR, IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

{ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10053 



j COMMAND PACKET FOR TEST 
{WRITE CHARACTERISTICS COMMANO, WITH 
ADDRESS OF CHARACTERISTICS BLOCK 

STARTING VALUE OF BLOCK SIZE 
CHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 

SELECT DRIVE 
MESSAGE BUFFER 



ACK 



;WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COMMAND, AND ACK 
.ADDRESS OF WRITE BUFFER 
j SIZE OF BUFFER C EXTENT) 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 4: ERASE AND OPERATION INCOMPLETE 



06-FEB-84 18{04 



SEQ 151 



2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2934 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 



051460 
051460 
051462 
051464 
051466 
051470 
051472 
051474 
051476 
051500 
051502 
051504 
051506 



051510 
051512 
051514 



051516 
051611 
051700 
05174 7 
052016 
052063 
052136 
052234 
052311 
052366 
052455 
052536 
052603 
052640 



052700 
052700 
052704 
052710 
052714 
052720 
052722 
052726 
052732 



140410 
141410 
140401 
141001 
161401 
161001 
141401 
140001 
141410 
141010 
141005 
177777 



000000 
000000 
000000 



124 
124 
122 
124 
124 
124 
122 
124 
124 
102 
105 
124 
117 
105 



.EVEN 
iTAPE MOTION PACKET COMMAND VALUES 

T32CMD: 



012701 
012721 
012721 
005021 
012721 
012721 
005021 



141 
141 
145 
123 
123 
123 
105 
123 
123 
117 
122 
123 
120 
162 



051330 
100004 
051340 

000012 
051352 





.WORD 


140410 




.WORD 


141410 




.WORD 


140401 




.WORD 


141001 




.WORD 


161401 




.WORD 


161001 




.WORD 


141401 




.WORD 


140001 




.WORD 


141410 




.WORD 


141010 




.WORD 


141005 




.WORD 


177777 


T32CNT: 


.WORD 





T32CNU: 


.WORD 





T32DLY: 


.WORD 






I SPACE RECORDS REVERSE 
I SKIP TAPE MARKS REVERSE 
j READ REVERSE 
jREREAD PREVIOUS COPP-0) 
j REREAD NEXT (OPP-1) 
;REREAD PREVIOUS COPP-1) 
jREREAD NEXT (OPP-0) 
{READ NEXT 

j SKIP TAPE MARKS REVERSE 
tSKIP RECORDS FORWARD 
i WRITE DATA RETRY 
I END OF DATA 



;TAPE TIMER COUNTER STORAGE AREA 
i TAPE TIMER COUNTER STORAGE AREA 
; DELAY COUNTER 



{LOCAL TEXT MESSAGES FOR TEST 
l - 

160 T32B0T- .ASCIZ 'Tape Not At BOT After REWINO Command CBOT Not Set In XSTOV 

160 T32E0T; .ASCIZ 'Tap* Status Alert During Erase To EOT, But EOT Not Set' 

167 T32RWN: .ASCIZ * Rewind (POSITION) Command Not Accepted' 

123 T32AM3; .ASCIZ ' TSSR In i t . Failed After REREAD COMMAND' 

123 T32ERA: .ASCIZ 'TSSR Not Correct After ERASE Command' 

102 T32BAt .ASCIZ ' TSBA Not Correct After REREAD DATA Command* 

101 T32RIB: .ASCIZ 'READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3 

123 T32SCF; .ASCIZ 'TSSR Not Correct After SPACE RECORDS Command' 

123 T32TSA* .ASCIZ 'TSSR Not Correct After READ REVERSE Into BOT* 

124 T32B0E: .ASCIZ * BOT CXSTO) Still Set After Erase From Tape*'s BOT Marker' 
101 T32ECF- .ASCIZ 'ERASE Failed To Clear Tape (Erase) Tape Properly' 

123 T32U0C: .ASCIZ 'TSSR Not Correct After ERASE Command- 
Ill T320PI: .ASCIZ 'OPI Bit (XST3) Failed To Set* 
141 TST32ID: .ASCIZ 'Erase And Operation Incomplete' 
.EVEN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T32REST: 



SAVREG 

MOV 0T32PACKET.R1 

MOV #100004, (Rl). 

MOV 0T32DATA.CR1)* 

CLR (Rl)* 

MOV *10. t (Rl)* 

MOV *T32BFR,(R1)» 

CLR (Rl)* 



I SAVE THE REGISTERS 

j START OF THE PACKET 

jWRITE SUBSYSTEM MEM, WITH ACK , 

; ADDRESS OF CHARAISTICS DATA BLOCK 

;EXTENOED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

.♦ADDRESS OF MESSAGE BUFFER 
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3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 



3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 



052734 
052740 
052742 
052746 
052752 
052760 
052762 
052766 
052770 

052772 
052772 
052776 
053002 
053006 
053010 
053012 
053016 
053020 
053022 
053022 
053026 
053032 
053034 
053036 
053040 
053042 
053044 
053044 
053044 



012721 000024 

005021 

012711 OOOOOO 

012702 000030 

012762 177777 031352 64$; 

005742 

022702 OOOOOO 

001371 

000207 



005C21 
005021 
005011 
000207 



104401 



T32RT2 



012701 051440 

012721 100006 

005021 

005021 

012721 000006 

005021 

00020 7 



012701 051450 
005021 



T32RT3t 



MOV 


020. .(Rl)f 


CLR 


CRD* 


MOV 


00, CRD 


MOV 


024 , , R2 


MOV 


0177777.T32BFRCR2) 


TST 


-<R2) 


CMP 


0O.R2 


BNE 


64$ 


RTS 


PC 


SAVREG 




MOV 


0T32PK2.R1 


MOV 


* 100006, CRD* 


CLR 


CRD* 


CLR 


CRD* 


MOV 


06., CRD* 


CLR 


CRD* 


RTS 


PC 


SAVREG 




MOV 


OT32PK3.R1 


CLR 


CRD* 


CLR 


crd* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


ENDTST 





SEQ 152 



{LENGTH OF MESSAGE BUFFER 



1 SELECT DRIVE ZERO 
{NUMBER OF LOCATIONS 
jALL ONES TO MESSAGE 
{NEXT LOCATION 
j AT END OF LOOP YET 
iKEEP GOING UNTIL DONE 
, RETURN 



TO BE CLEARED 
BLTFER 



j SAVE THE 
j START OF 



REGIS ERS 

THE PACKET 



{URITE SUBSYSTEM 



MEM. WITH ACK, 
BLOCK 



{ADDRESS OF DAT\ 

{EXTENDED ADORES." 

j SIZE OF DATA BLOCK IN BYTES 

{RETURN 

{SAVE REGISTERS 

{SET UP POINTER ADDRESS 

iCOMMANO SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

{RETURN 



L10053: 



TRAP 



.SBTTL TEST 5} DATA PARITY TEST 



CSETST 



TEST 5 -- Data Parity Test 



;ThJ9 test verifies that the data parity circuitry in both the controller 
{transport is operating properly by forcing dota records with wroncj par It 
; written onto tape and checking the results obtained when the data is read, 
{following test sequence is performed; 



and the 

y to be 

The 



A Write Characteristics command is issued and the resulting status !•? 
examined to determine the states of the Extended Features and Buffering 
Enable switches on the controller module. If buffering is disabled, no 
fur th* actions r\^ft<i be taken in this step and the program proceeds to 
the nr-.t step. If buffering is enabled, it is disabled via the Buffer 
Control field in the extended characteristics data word supplied by a 
Write Characteristics command. CThe module must be in Extended mode, 
so if it is not already, a Write Subsystem Memory command is issued to 
change the logical sense of the Extended Features switch.) 



2> 



The Write Subsystem Memory command 
Parity control flip flop. 



is used to set the Force Wrong 
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TEST L - HARDWARE TEST 1-8 
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3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

31C5 

3106 

3107 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 



TEST MACRO M1113 06-FEB-84 18:04 



SEQ 153 



3120 
3121 
3122 

3123 
3124 
3125 
3126 



053046 
0530<*6 
053046 
053054 
053060 
053064 
053072 



053076 
053076 
053076 
053076 
053100 
053104 
053110 
053114 
055120 
053124 
053130 



012737 
012700 
004737 
012737 
005037 



104402 
005037 
005037 
005037 
004737 
004737 
004737 
012737 



3. 
4. 

5. 

6. 
7. 



The tap* is rewound. 

A Wrtte Data command is issued to write a data record containing all 
O's. It is verified that this command results in Recoverable Error 
termination (TC-4) and that the Uncorrectable Data Error (UNO error 
bit is set. 



The previous 
(octal). 



step is repeated for each data value 2 through 377 



The tape is rewound. 

A Read Next command is issued to read a record with faulty parity. It 
is verified that this command results in Recoverable Error termination 
(TC-4) v-id that both the Uncorrectable Data (UNO and Read Bus Parity 
(RBP) e~ror bits are set. It Is also verified that the data actually 
read is correct. 



8. A Rend Reverse command with 0PP-1 is Issued to read, 



i n 



same record with faulty 
verified that this command 
(TC-4) and that both the 
(RBP) error bits are set, 
read is correct. 



reverse, the 



parity as read in the previous step. It is 
results in Recoverable Error termination 
Uncorrectable Data (UNO and Read Bus Parity 
It Is also verified that the data actually 



9. 
10. 

11. 



Tape Is spaced forward one record. 

The previous three steps are executed for each test record originally 
written. 

The controller is initialised to clear the special test conditions 
previously set up. 



006413 
055645 
016570 
000005 
054716 



002172 
002210 



BGNTST 

MOV 
MGV 
JSR 
MOV 
CLR 



0EPRT2.EPRTSW 

OYST33ID.R0 

PCTSTSETUP 

O5.L00PCNT 

T33CNT 



T5t : 
} SEC0N0ARY ERROR MESSAGE 
;ASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
; PERFORM 5 ITERATIONS 
j CLEAR TAPE RECORD COUNTER 



T33L00P.' 



002216 
05471* 
054720 
055662 
055754 
056016 
176750 



054 722 



BGNSU6 



CLR 
CLR 

CLR 
JSR 
JSR 
JSR 
MOV 



{>>>>>>>>>>>> 



BEGIN SUBTEST 
T5.1: 



>>%>>>>>>>»> 



TRAP 



XNTRECV 

T33CNT 

T33CNU 

PC.T35REST 

PC.T33RT2 

PC.T33RT3 

065000. .T33DLY 



j INTERRUPT INDICATOR 
{TIMER FOR WRITE DATA 
, TIMER FOR URITE DATA 
;SET COMMAND PACKET 

{SET UP OTHER COMMAND 
} SET UO OTHER COMMAND 
j SET UP DELAY COUNTER 



ciBsue 



SPACING 
RETR V SPACING 

PACKE r 
PACKET 
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TEST 1 - HARDWARE TEST 


|-e TES1 


TEST 5: DATA P, 


ARITY TE 


3127 055136 


004737 


016054 


3128 053142 


103426 




3129 053144 






053144 


012727 


000250 


053150 


000000 




053152 


013727 


002116 


053156 


000000 




053160 


005367 


177772 


053164 


001375 




053166 


005367 


177756 


055172 


001367 




3130 053174 


005337 


054722 


3131 053200 


001356 




3132 053202 


005237 


002214 


3136 053206 


010001 




3137 053210 






053210 


104455 




053212 


000765 




053214 


003646 




053216 


012114 




3138 053220 


013737 


002174 


3139 






3140 053226 


012704 


054550 


3141 053232 


004737 


010 742 


3142 053236 


103407 




3143 053240 


005237 


002214 


3147 053244 


010001 




3148 053246 






053246 


104456 




053250 


000766 




053252 


005052 




053254 


012114 




3149 053256 






053256 


104406 




3150 053260 


004737 


011074 


3151 053264 


103411 




3152 053266 


016501 


000002 


3153 053272 


010004 




3154 053274 


005237 


002214 


3158 053300 






053300 


104456 




053302 


000767 




053304 


055420 




053306 


012126 




3159 053310 






053310 


104406 




3160 053312 


013701 


054600 


3161 053316 


010102 




3162 053320 


052702 


000002 


3163 053324 


020102 




3164 053326 


001406 




3165 053330 


005237 


002214 


3169 053334 






053334 


104 -6 




053336 


000 .0 




053340 


055525 




053342 


015554 





MACRO M1113 06-FEB-84 18*04 



10$: 



JSR 


PC.SQFINIT 


BCS 


20$ 


DELAY 


250 



235: 



DEC 
BNE 
INC 
MOV 
ERRDF 



MOV 

MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



30$: 



T33DLY 

10$ 

FATFLG 

R0.R1 

ERRNO, SFIERR, SFIMSG 



UNITN.T33DSW 

0T33PACKET,R4 

PC.WRTCHR 

23$ 

FATFLG 

R0.R1 . 

ERRNO » WRTMSG , SfltMSG 



PC, REWIND 

30$ 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRNO, T33RWN,PKTSSR 



SEQ 154 



I DO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

jDELA* ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBUMP COUNTER 

j BR, IF COUNTER NOT DONE 
j ERROR COUNT 

{CONTENTS OF TSSR REGISTER 

5FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

{SET UP UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 
{ISSUE WRITE CHARACTERISTICS 
i BR, IF COMMANO ISSUED OK 

{ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



*250,(PO* 



L$DLY,(PC)* 



-6(PC) 

. -4 

-22CPC) 

.-20 



OERDF 
501 

SFIERR 
SFIMSG 



FAILED 




TRAP 


CIE3HRD 


.WORD 


502 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



{LOOP IF SELECTED 

TRAP 
;CALL TAPE REWIND COMMAND 
iBR, IF NO PROBLEM 
{GET TSSR CONTENTS 
{GET PACKET ADDRESS 

{ERROR COUNT 
{REWIND NOT ACCEPTED 



C$CLP1 







TRAP 


C$ERHRD 






.WORD 


503 






.WORD 


T33RWN 






.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T33BFR*6,R1 


{PICK UP XSTO 




MOV 


R1..R2 


{SET UP EXPECTED 




BIS 


4BIT1.R2 


{SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


{DOES EXP - REC'D 




BEQ 


40$ 


i BR. IF EQUAL (OK) 




INC 


FATFLG 


tERROR COUNT 




ERRHRD 


ERRNO. T33B0T.EXPREC 


{TAPE NOT AT BOT AFTER REWIND 





REWIND 




TRAP 


C$fc.RHRD 


.WORD 


504 


.WORD 


T33B01 


.WORD 


EXPREC 



M12 



TEST 1 - HARQWAR 
TEST 5: 



^ I&ST 1-8 TEST MACRO M1113 
DATA PARITY TEST 



06 -FEB -84 18; 04 



SEQ 155 



3170 

3171 
3172 

3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3184 



3185 

3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3198 
3199 



3200 

3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3213 



3214 

3215 

3216 

3217 
3218 
3219 



053344 

053344 

053346 

053352 

053354 

053362 

053370 

053374 

053400 

053404 

053406 

053410 

053414 

053414 

053416 

053420 

053422 

053424 

053424 

053426 

053432 

053434 

053442 

053450 

053456 

053462 

053466 

053470 

053474 

053476 

053476 

053500 

053502 

053504 

053506 

053506 

053510 

053510 

053516 

053524 

053530 

053534 

053540 

053542 

053544 

053550 

053550 

053552 

053554 

053556 

053560 

053560 

053562 

053566 

053574 

053600 

053606 



104406 
005737 
001025 
112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000771 
055241 
012126 

104406 
005737 
001426 
013737 
042737 
052737 
012704 
004737 
103407 
005237 
010001 

104456 
000772 
005052 
012114 

104406 

112737 
112737 
012704 
010465 
004 737 
103407 
010001 
005237 

104456 
000773 
055241 
012126 

104406 
012703 
013737 
005037 
012737 
012704 



002220 

000200 054701 
000010 054700 
054660 
000000 
016416 



002214 



40$i 
42$ 5 



002222 

002174 054570 
000020 054570 
000010 054570 
054550 
010742 

002214 



50$ 
55$ 



60$ 
70$ 



CKLOOP 

TST 

BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRO 



CKLOOP 

TST 
BEQ 

MOV 
BIC 
BIS 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



jLOOP IF SELECTED 



000100 054701 
000011 054700 
054660 
000000 
016416 



002214 



80$ s 

000026 

003116 0546^2 

054 720 

140005 054670 110$: 

054670 



CKLOOP 



tXTFEA 

551 

*200 t T33BSl 

410.T33BS0 

4T33PK2.R4 

R4,TSDB(R5) 

PC.CHKTSSR 

50$ 

R0.R1 

FATFI.G 

ERRN0.T33SSR, PKTSSR 



TRAP 
FEATURES 



SW 



CICLP1 
SWITCH 



BENBSW 

70$ 

UNITN.T330SW 

*BIT4,T33DSU 

0BIT3.T33DSW 

4T33PACKET.R4 

PC.WRTCHR 

60$ 

FATFLG 

R0.R1 

ERRNO.WRTMSG.SFIMSG 



MOVB 


0100.T33BS1 


MOVB 


011.T33BS0 


MOV 


4T33PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


80$ 


MOV 


R0,R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T33SSR, PKTSSR 



j CHECK FOR EXTENDED 

;BR IF SWITCH IS ON 

j WRITE MISCELLANEOUS CONT/READ STATUS 

jFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 

j WRITE SU6SYS MEM PACKET 

j ISSUE COMMAND 

{WAIT FOR SSR 

} BR, IF NO ERROR 

{ERROR, SAVE TSSR 

{ERROR COUNT 

;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
, WORD 505 
.WORD T33SSR 
.WORD PKTSSR 



{LOOP IF SELECTED 



TRAP 
ENABLED 
NOT ENABLED 



C$CLP1 



{CHECK FOR BUFFER 

5 BR, IF BUFFERING 

,SET UP UNIT NUMBER 

{BUFFER DISABLE 

{BUFFER DISABLE SEND 01 TO BITS 4 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

;9R, IF COMMANO ISSUED OK 

{ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



;LOOP IF SELECTED 



AND 3 



FAILED 




TRAP 


CiERHRD 


.WORD 


506 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



C$CLP1 



{WRITE MISCELLANEOUS CONT/READ STATUS 

jFUNC. SEL, BIT (SET WRONG PARITY) 

{WRITE SUBSYS MEM PACKET 

{ISSUE COMMAND 

;WAIT FOR SSR 

{BR, IF NO ERRO n 

{ERROR, SAVE h 

{ERROR CJUNT 
{TSSR NOT CORRECT AFTER 



MOV 


#22. ,R3 


MOV 


FREE.T33WB 


CLR 


T33CNU 


MOV 


0140005, T33PK3 


MOV 


0T33PK3.R4 



{LOOP tt SELECTED 
{NUMBER OF RECORDS TO BE WRITTEN 



WRT 
TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



MISCELLANEOUS 
C$ERHRD 
50/ 

T33SSR 
PKTSSR 



CSCl.Pl 



{STARTING WRITE BUFFER ADDRESS 
{MAKE SURE ITS CLEAR 
jURITE DATA.ACK.CVC-l COMMAND 
,SET UP R4 WITH PACKET ADDRESS 



N12 



TEST 1 - HARDWARE TEST 


1-8 TEST MACRO 


TEST 5; DATA PARITY TEST 


3220 053612 


012737 


000024 054676 


3221 053620 


013777 


054720 127270 


3222 053626 


005237 


05*720 


3223 053632 


010465 


000000 


3224 053636 


004737 


016330 


3225 053642 


016501 


000002 


3226 053646 


012702 


100210 


3227 053652 


020102 




3228 053654 


001406 




3229 053656 


005237 


002214 


3233 053662 






053662 


104456 




053664 


000774 




053666 


055002 




053670 


012126 




3234 053672 






053672 


104406 




3235 053674 


013701 


054602 


3236 053700 


010102 




3237 053702 


052702 


000002 


3238 053706 


020102 




3239 053710 


001406 




3240 053712 


005237 


002214 


3244 053716 






053716 


104'\56 




053720 


000775 




053722 


055062 




053724 


015554 




3245 053726 






053726 


104406 




3246 053730 


0053C3 




3247 053732 


001322 




3248 053734 


004737 


011074 


3249 053740 


103411 




3250 053742 


016501 


000002 


3251 053746 


010004 




3252 053750 


005237 


002214 


3256 053754 






053754 


104456 




053756 


000776 




053760 


055420 




053762 


0121£6 




3257 053764 






053764 


104406 




3258 053766 


013701 


054600 


3259 053772 


010102 




3260 053774 


052702 


000002 


3261 054000 


020102 




3262 054002 


001406 




3263 054004 


005237 


002214 


3267 054010 






054010 


104456 




054012 


0007 7 7 




054014 


055325 




054016 


01555* 




3268 054020 






054020 


104406 





06-FEB-S4 18?04 



120$ 



MOV 
MOV 
INC 
MOV 
JiR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



130$ 



CKLOOP 



140$ 



150$ 



CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



#20. ,T33SZ 

T33CNU.QFREE 

T33CNU 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

V>SSR!SC!BIT3,R2 

R1.R2 

120$ 

FATFLG 

ERRN0.T33WPW, PKTSSR 



MOV 


T33BFR*10,R1 


MOV 


R1.R2 


BIS 


4BIT1.R2 


CMP 


R1.R2 


BEQ 


130$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T33UNC.EXPREC 



DEC 


R3 


BNE 


110$ 


JSR 


K. REWIND 


DCS 


140$ 


MOV 


TSSR(R5),R1 


MOV 


R0,R4 


INC 


FATFLG 


ERRHRD 


ERRN0.T33RWN, PKTSSR 



T33BFR+6.R1 

R1.R2 

#BITl,R2 

R1.R2 

1505 

FATFLG 

ERRN0,T33B0T,EXPREC 



SEQ 156 



I SET UP RECORD SIZE IN PACKET 

{MEMORY FILLED WITH DATA IN RECORD 

{READY FOR NEXT RECORD 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

j BR, IF OK 

.•ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 

TRAP 
. WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{PICK UP XST1 

{SET UP EXPECTED 

{SET UNC BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL (OK) 

{ERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



{LOOP IF SELECTED 

TRAP 
;DEC RECORD COUNTER 
;BR, IF MORE RECORDS TO WRITE 
{CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
{GET TSSR CONTENTS 
{GET PACKET ADDRESS 

{ERROR COUNT 
{REWIND NOT ACCEPTED 



C$ERHRD 
508 

T33WPW 
PKTSSR 

C$CLP1 



C$ERHRD 
509 

T33UNC 
EXPREC 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


510 


.WORD 


T33RWN 


.WORD 


PKTSSR 


{LOOP IF SELECTED 




TRAP 


C$CLP1 


jPICK UP XSTO 




jSET UP EXPECTED 




{SET BOT BIT IN EXPECTED 




{DOES EXP - REC'D 




sBR, IF EQUAL (OK) 




{ERROR COUNT 




{TAPE NOT AT BOT AFTER REWIND 




TRAP 


C$ERHRD 


.WORD 


511 


.WORD 


T3 3BOT 


.WORD 


EXPREC 


{LOOP IF SELECTtD 




TRAP 


C$CLP1 



B 1 6 



TEST I - HARDWARE TEST 


1 8 TEST MACRO 1 


TEST 5: DATA PARITY TEST 


3269 054022 


005037 


054720 


3270 054026 


012703 


000024 


32 71 054032 


013737 


003116 05467? 


3272 054040 


012737 


140001 054670 


3273 054046 


012704 


054670 


3274 054052 


012737 


0OC024 054676 


3275 054060 


010465 


oococo 


3276 054064 


004737 


Oil 330 


3277 054070 


016501 


00000^ 


3278 054074 


012702 


100210 


3279 054100 


020102 




3280 054102 


001406 




3281 054104 


005237 


002214 


3285 054 110 






054110 


104456 




054U2 


001000 




054114 


055467 




054116 


012126 




3286 054120 






054120 


104406 




3287 054122 


013701 


054602 


3288 054126 


010102 




3289 054130 


052702 


000002 


3290 054134 


020102 




3291 054136 


001406 




3292 054140 


005237 


002214 


3296 054144 






054144 


104456 




054146 


001001 




054150 


055152 




054152 


015554 




3297 054154 






054154 


104406 




3298 054156 


013701 


054602 


3299 054162 


010102 




3300 054164 


052702 


000400 


3301 054170 


020102 




3302 054 172 


001406 




3303 054174 


005237 


002214 


3307 05 3200 






054200 


10445* 




054202 


00100 2 




054204 


054 724 




054206 


015554 




3308 054210 






054210 


104406 




3309 054212 


0177C1 


126700 


M10 054216 


013702 


054 720 


3311 054222 


020102 




3312 054224 


001406 




3315 054226 


005237 


00^14 


3317 054232 






054232 


104456 




054234 


001003 




054 2 56 


055550 




054240 


015554 




33i& Q54242 







M1113 



155$ i 



FEB- 


84 


18t04 




SEQ 157 


Cl.R 




T33CNU 




jCLEAR DATA VALUc IN RECORD 


MOV 




020. ,R3 




iRECORD SIZE 


MOV 




FREE.T33RB 




iSTARTING WRITE BUFFER ADDRESS 


MOV 




*14OO0l,T33PK3 


jREAD DAT A.CVC- LACK COMMAND 


MOV 




♦T33PK3.R4 




iSET UP R4 WITH PACKET ADDRESS 


MOV 




♦20. .T33SZ 




jSET UP RECORD SIZE IN PACKET 


MOV 




R4,TSDB(R5) 




I ISSUE COMMANO 


J5R 




PC.WAITF 




iWAIT FOR SSR TO SET 


MOV 




TSSR(R5),Rl 




l&ET TSSR CONTENTS 


MOV 




OSSRJSCJBITS, 


,R2 


iSET UP EXPECTED 


CMP 




R1.R2 




lARE THEY EQUAL 


BF.Q 




160$ 




I BR, IF OK 


INC 




FATFLG 




lERROR COUNT 


ERRHRD 


fcRRN0,T33WDC 


.PKTSSR 


iTSSR INCORRECT AFTER WRITE DA 










TRAP 



160$ j CKLOOP 



MOV 


T33BFR»10,R1 


MOV 


R1,R2 


BIS 


0BIT1.R? 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T33UND,EXPREC 



170$ j CKLOOP 



MOV 


T33BFR»10 t Rl 


MOV 


R1.R2 


BIS 


♦BIT8.R2 


CMP 


Rl.fi? 


BEQ 


180$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T33RBP,EXPREC 



100$ j CKlO^ 

MuV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



Ifefi CKLUOP 



L^REE.Rl 

T33CNU.R2 
RI.R2 
182? 
FATFtU 

ERRN0 4 T53DIA t fcXPHUC 



I LOOP IF SELECTED 

,PICK UP XST1 

iSET UP EXPECTED 

iSET UNC BIT IN EXPECTED 

iDOES EXP - REC'O 

jBR, IF EQUAL (OK) 

I ERROR COUNT 



.UORD 
.WWD 
.WORD 

TRAP 



CfERHRO 

512 

T33WDC 

PKTSSR 

C$CL.P1 



lUNC BIT NOT SET AFTER 



l LOOP IF SELECTED 



READ CMO 
TRAP 
.WORD 
.WORD 
.WORD 



,PICK UP XST1 

iSET UP EXPECTED 

l SET RBP BIT IN EXPECTED 

lOOES EXP • REC'O 

jBR, IF EQUAL (OK) 

j ERROR COUNT 
I READ BUS PARITY ERROR 



TRAP 



C$ERHRD 
513 
T33UNO 
EXPREC 

C$CLP1 



I LOOP IF SELECTED 

jGET DATA READ 

,GET PATTERN 
tAME THEi EQUAL 
j BR, IF OK 

(ERROR COUNT 
lUATA NOT CORRECT 



jLUUP W UtLtCTtU 



BIT NOT 
JpAP 
.WORD 
.WORD 
.WORO 

TRAP 



SET 
C$ERHRD 
514 
T33RBP 
EXPRf C 

C$CLP1 



TRAP 
.WORD 
,WO«D 
% WURQ 



C$F RHHD 

T 3<[)T*; 
EXPREC 



C13 



Tt .1 L - HARDWARE TEST 


1-8 TEST MACRO 1 


TEST 5: DATA PARITY TEST 


054242 


104406 




5519 054244 


013737 


005116 054672 


5520 054252 


012737 


140401 054670 


3321 054260 


012704 


054670 


3522 054264 


012737 


000024 054676 


3525 054272 


010465 


000000 


5524 054276 


004737 


016350 


3525 054302 


016501 


000002 


3526 054506 


012702 


100210 


3527 054312 


020102 




3328 054314 


001406 




3529 054516 


005257 


002214 


3353 054522 






054522 


104456 




054524 


001004 




054526 


055467 




054330 


012126 




3534 054352 






054552 


104406 




3355 054334 


015701 


054602 


3556 054340 


010102 




3557 054542 


052702 


000002 


3558 054546 


020102 




5559 054550 


001406 




5540 054552 


00525? 


002214 


3544 054556 






054356 


104456 




054560 


001005 




054562 


055152 




054564 


015554 




3545 054566 






054 566 


104406 




5346 054370 


015701 


05^602 


5547 054574 


010102 




5548 054576 


052 702 


000400 


5549 054402 


020102 




5550 054404 


001406 




5551 054406 


005237 


002214 


3355 054412 






054412 


104456 




054414 


001006 




054416 


054724 




054420 


015554 




3556 054422 






054422 


104406 




3357 054424 


017701 


126466 


3556 054450 


013702 


054 720 


3359 054454 


020102 




3560 054456 


001406 




5361 054440 


005237 


002214 


3565 054444 






054444 


104456 




054446 


00100 7 




054450 


055550 




054452 


015554 




3366 054454 






054454 


104406 





M1U3 06-FE8-84 18*04 



195$} 



MOV 


FREF..T33WB 


MOV 


0140401 .T33PK3 


MOV 


0T55PKS.R4 


MOV 


«20. ,T53SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


•SCSSRJBIT3.R2 


CMP 


R1.R2 


BEQ 


1901 


INC 


FATFLG 


ERRHRD 


ERRN0,T33WDC,PKTSSR 



190$: CKLOOP 



MOV 


T33BFR*10,R1 


MOV 


R1.R2 


BIS 


#BIT1,R2 


CMP 


R1.R2 


BEQ 


200$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T33UND,EXPREC 



200$: CKL.UOP 



MOV 


T33BFR.10.R1 


MOV 


R1.R2 


BIS 


«eiT6,R2 


chp 


R1.R2 


BEQ 


2101 


INC 


FATFLG 


ERRHRD 


ERRN0 ( T33RBP,E.XPREC 



210$ j CKLOOP 

MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



21511 CKLOOP 



SFRtF.Rl 

T35CNU.R2 

R1.R2 

215$ 

FA TUG 

tRRN0,T330TA i EXPREC 



SEQ 158 



TRAP CICLP1 
iSTARTING WRITE BUFFER ADDRESS 
jREAD REVERSE DATA RETRY, ACK COMMAND 
j SET UP R4 WITH PACKET ADDRESS 
iSET UP RECORD SIZE IN PACKET 
j ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 

{SET UP EXPECTED 
»ARE THEY EQUAL 
jBR, IF OK 

lERPOR COUNT 
l TSSR INCORRECT AFTER WRITE DATA 



lLOOP IF SELECTED 

jPICK UP XST1 

jSET UP EXPECTED 

iSET UNC BIT IN EXPECTED 

iDOES EXP ■ REC'D 

iBR, IF EQUAL C OK ) 

lERPOR COUNT 
j TAPE NOT AT BOT AFTER 



TRAP 

.WOflD 
.WORD 
.WORD 

TRAP 



lLOOP IF SELECTED 



REWINO 
TRAP 
.WORD 
.WORD 
.WORD 



,PICK UP XSTO 

iSET UP EXPECTED 

ISET RBP BIT IN EXPECTED 

iDOES EXP - REC'O 

l BR, IF EQUAL (OK) 

lERROR COUNT 
iREAD BUS PARITY ERROR 



TRAP 



1 1. OOP IF SELECTED 

jGET DATA READ 

jGET PATTERN 
j ARE THE^ EQUAL 
iBR, IF OK 

, ERROR COUNT 
jDATA NOT CORRECT 



lLOUP IF SELECTED 



BIT NOT 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



TRAP 
»VJRD 

WORD 
.WORD 

TRAP 



CiERHRD 
516 

Tj>3WDC 
PKTSSR 

C$CLP1 



C1ERHRD 
517 

T35UNO 
EXPREC 

C$CLP1 



SET 
CtERHRD 
518 

T33RBP 
FXPRF.C 

C$CLP1 



CURHRD 

519 

T J*DTA 

FXPRFC 

C4CLPX 



jisj l * : ^?fimi}pi E ^f 8 test macro mui3 



3^6 7 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 



3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 



3388 
3389 
3390 
3392 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3410 
3412 
3413 
3414 
3415 
3416 
3417 
3421 
3422 
3423 
3424 
3425 
3426 



054456 
054460 
054464 
054470 
0544 72 
0544 76 
054500 
054502 
054506 
054506 
054506 
054506 
054510 
054516 
054520 
054524 



054524 
054530 
054532 
054536 
054536 
054540 



054550 
054550 
054552 
054554 
054556 
054560 
054560 
054562 
054564 
054566 
0545 70 
054572 



054660 
054660 
054662 
054664 
054666 

054670 
054670 
054672 
054672 
0546 74 
054676 



010302 

012703 000001 

004737 010544 

010203 

005237 054 720 

005303 

001402 

000137 054032 



104403 

023727 002214 000017 

103402 

004737 017262 



004737 016536 

103002 

000137 053076 

104432 
001300 



054550 

1000O4 
054560 
000000 
000012 

054572 
OOOOOO 
000024 
OOOOOO 
OOOOOO 



054660 

100006 
054 700 
OOOOOO 
000006 



100005 

005116 
OOOOOO 
OOOOOO 







D16 


FEB -64 


18j 04 




MOV 


R3.R2 




MOV 


♦ 1.R3 




JSR 


PC, SPACE 




MOV 


R2.R3 




INC 


T33CNU 




DEC 


R3 




BEQ 


2201 




JMP 


155$ 





SEQ 159 



220$; 



999$; 

J 
J 
l 



230$; 



ENDSUB 



CMP 
RLO 
JSR 



JSR 
BCC 
JMP 
EXIT 



FATFLG.015 

9<*9$ 

PCCKDROP 



PC.TSTLOOP 

230$ 

T33L00P 

TST 



, LOCAL STORAGE FOR THIS TEST 



,-<.*10 


>£177770 


T33PACKET: 




.WORD 


100004 


.WORD 


T33DATA 


.WORD 





.WORD 


10. 


T33DATA; 




.WORD 


T33BFR 


.WORD 





.WORD 


20. 


.WORD 





T33DSW; .WORD 





T33BFR; .BLKU 


25. 



t WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.-< . »10>6177770 



T33PK2; 








.WORO 


100006 




.UORO 


T33BF2 




.WORD 







.WORD 


6. 


T33PK3; 








.WORD 


100005 


T33RB: 






T33WB: 


.WORO 


FREE 




.WORD 





T35S/: 


.WORD 






MOMENT 
ONE RECORD 



»SAVE R3 FOR A 

i SPACE FORWARD 

,CALL ROUTINE 

I RESTORE R3 

jBUMP TO NEXT RECORD NUMBER 

j BUMP COUNTER 

l BR, IF DONE 

I BR, IF NOT DONE YET 

;<<<<<<<<<<<<< END SUBTEST >>>>>>>>>>>> 

L 10060; 

TRAP C$ESUB 
j IS ERROR COUNT AT 25 
}BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



iDO WE NEED TO ITERATE TEST 

;BR, IF NO LOOP REQUIRED 

jEXECUTE AGAIN 

{ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 1005 7 



-.COMMAND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND. WITH 

tADDRESS OF CHARACTERISTICS BLOCK 

■STARTING VALUE OF BLOCK SIZE 
jCHARACTERISTICS DATA BLOCK 
tADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

i SELECT DRIVE 

jMESSAGE BUFFER 



ACK 



l WRITE SUB SYS MEM COMMANO, AND ACK 
< ADDRESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



j REREAD COMMAND, AND ACK 
j ADDRESS OF WRITF BUFFER 
lSI/E OF BUFFER (EXTENT** 



E13 



TEST 1 - HARDWARE TEST 18 TEST MACRO M1113 
TEST 5: DATA PARITY TEST 



06-FEB-84 18:04 



SEQ 160 



3427 
3428 
3429 
3430 

3431 054700 

3432 054700 010 

3433 054701 200 
34 34 054 702 000000 
3435 054 704 000000 
3436 
3437 
3438 
3439 
3440 

3441 054706 100205 T33RN: 

3442 054710 100605 T33WOR; 

3443 054712 102205 T33CON: 

3444 054714 177777 
3445 

3446 t 

3447 054716 000000 T33CNT 

3448 054720 000000 T33CNU 

3449 054722 000000 T33DLY 

3450 j ♦ 
3451 
3452 
3453 

3454 054724 122 145 141 

3455 055002 124 123 123 

3456 055062 125 116 103 

3457 055152 125 116 103 

3458 055241 127 122 111 

3459 055325 124 141 160 

3460 055420 122 145 167 

3461 055467 124 123 123 

3462 055550 104 141 164 

3463 055645 104 141 164 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 

34 72 055662 
34 73 055662 

3474 055666 012701 054550 

3475 055672 012721 100004 

3476 055676 012721 054560 

3477 055702 005021 

3478 055704 012721 000012 

3479 055710 012721 054572 

3480 055714 005021 

3481 055716 012721 000024 

3482 055722 005021 

3483 055724 012/11 000000 



.EVEN 



T33BF2 
T33DS0 
T33BS1 
T33S2: 
T33S3; 
I 

.EVEN 

{TAPE MOTION PACKET 



.BYTE 
.BYTE 
.WORD 
.WORD 



10 
200 





jBSELO AREA 
jBSELl AREA 
iSEL 2 AREA 
I DATA AREA 



COMMAND VALUES 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 



iREREAD DATA (NEXT) 
{REREAD DATA RETRY 
j WRITE CONTINOUS 
I END OF DATA 



{TAPE TIMER COUNTER STORAGE AREA 
{TAPE TIMER COUNTER STORAGE AREA 
j DELAY COUNTER 



{LOCAL TEXT MESSAGES FOR TEST 
l - 



T33RBP 
T33WPW 
T33UNC 
T33UNO 
T33SSR 
T33BOT 
T33RWN 
T33WDC 
T33DTA 
TST33ID 



.ASCIZ 'Read Bus Parity Bit Not S«t (XSU), Should Be' 

.ASCIZ ' TSSR Incorrect After Wrong Parity Write Command' 

.ASCIZ 'UNC Bit (XST1) Not Set After Wrong Parity WRITE Command' 

.ASCIZ 'UNC Bit CXSTl) Not Set After Wrong Parity READ Command' 

.ASCIZ 'WRITE MISCELLANEOUS CONT/READ COMMAND Not Accepted' 

.ASCIZ 'Tape Not At BOT After REWINO Command (BOT Not Set In X5T0V 

.ASCIZ 'Rewind (POSITION) Command Not Accepted' 

.ASCIZ ' TSSR Not Correct After READ Wrong Parity Convnand' 

, ASCIZ 'Oata Compare Error, Data Read From Tape Not Equal To Written' 

.ASCIZ 'Data Parity' 
.EVEN 



jROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
{WRITE SUBSYSTEM MEMORY COMMAND 



J 



T33RESTj 




SAVREG 




MOV 


OT33PACKET.R1 


MOV 


0100004, (Rl). 


MOV 


*T33DATA,(R1)» 


CLR 


(Rl)* 


MOV 


010. ,(R1)» 


MOV 


0T33BFR,(R1)> 


CLR 


(Rl)* 


MOV 


020. ,(R1 )» 


CLR 


(Rl)» 


MOV 


00, (Rl) 



j SAVE THE REGISTERS 

i START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK , 

{ADDRESS OF CHARAISTICS DATA BLOCK 

tEXTENOED ADDRESS 

jSIZE OF DATA BLOCK IN BWBS 

i ADDRESS OF MESSAGE BUFFER 

tLENGTH OF MESSAGE BUFFER 

jSELECT DRIVE ZERO 



F13 



TEST 

TEST 



3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 



HARDWARE TEST 1-8 
DATA PARITY TEST 



TEST MACRO M1113 06-FEB-04 18*04 



3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 

3525 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3559 
3540 
3541 



055730 
055734 
055742 
055744 
055750 
055752 

055754 
055754 
055760 
055764 
055770 
055774 
055776 
056002 
056004 
056010 
056012 
056014 
056016 
056016 
056022 
056026 
056030 
056032 
056034 
056036 
056040 
056040 
056040 



056042 
056042 
056042 
056050 
056054 
056060 
056066 



012702 000030 

012762 177777 054572 

005742 

022702 000000 

001371 

000207 



64$: 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



T33RT2: 



054660 
100006 
054700 

000006 

054700 



T33RT3: 



054670 



MOV 
MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 

SAVREG 

MOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENDTST 



024. ,R2 

0177777, T33BFR(R2) 

-CR?) 

00, R2 

64$ 

PC 



0T33PK2.R1 

0100006, CRD* 

0T33BF2.CRn* 

(Rl)* 

06. ,(RD* 

CRD* 

0T33BF2.R1 

(Rl)* 

(Rl) 

PC 



0T33PK3,R1 

(Rl)* 

CRD* 

CRD* 

(Rl) 

PC 



SEQ 161 



(NUMBER OF LOCATIONS TO BE CLEARED 

i ALL ONES TO MESSAGE BUFFER 

jNEXT LOCATION 

I AT END OF LOOP YET 

j KEEP GOING UNTIL DONE 

(RETURN 



jSAVE THE REGISTERS 

jSTART OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK, 

I ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



(RETURN 

(SAVE REGISTERS 

(SET UP POINTER ADDRESS 

(COMMANO SPACE 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA TRANSFER BLOCK 

(RETURN 



L10057: 



.SBTTL TEST 6: OPERATIONS AT EOT 



TRAP 



C$ETST 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE, WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 



I ~ 



BGNTST 



012737 006354 002172 

012700 063207 

004737 016570 

012737 000005 002210 

005037 060672 



MOV 


0EPRT1.EPRTSW 


MOV 


<MST34ID.R0 


JSR 


PCTSTSETUP 


MOV 


O5.L00PCNT 


CLR 


T34CNT 



T6: ; 

(PRIMARY ERROR MESSAGE 

(ASCII MESSAGE TO IDENTIFY TEST 

(DO INITIAL TEST SETUP 

(PERFORM 5 ITERATIONS 

(CLEAR TAPE RECORD COUNTER 



TEST 6, SUBTEST 1 



THIS TEST VERIFIES THAT THE tOf STATUS 
THE VARIOUS TAPE MOTION COMMANDS, THE 
IS PERFORMED: 



IS HANOLEU PROPERLY B* 
FOLLOWING TEST SEQUENCE 



TEST 
TEST 



6: 



G13 



HARDWARE TEST 1-8 
OPERATIONS AT EOT 



TEST MACRO M1113 06-FEB-84 18}04 



SEQ 162 



3*343 

3544 

3545 

3546 

354 7 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 



1. THE TAPE IS REWOUND. 

2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOT-1. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA, 

3. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1. 

4. A WRITE TAPE MARK COMMANO IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1. 

5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
CHECKED THAT TAPE STATUS ALER T TERMINATION OCCURS. WITH 
EOT-1 AND TMK-1. 

6. A SPACE RECORDS REVERSE COMMANO, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS, WITH EOT-1 AND TMK-1, 

7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-1. 

8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-1. 

9. A READ REVERSE COMMAND IS ISSUED, ANO IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT-1. 

10. A READ FORWARD COMMAND IS ISSUED, ANO IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT-1. 

11. A SPACE RECORDS REVERSE COMMANO, WITH A RECORD COUNT OF 
3, IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-0. 

13. A SPACE RECORDS FORWARD COMMANO, WITH A RECORD COUNT OF 
3, IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-1. 

13. A SKIP KILE MARKS REVERSE COMMANO IS ISSUED. WHICH 

SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-0, 
BOT*l, AND RIB-1. 



056072 



T54L00P: 
J * 



H13 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 6«. OPERATIONS AT EOT 



06 -FEB -64 18 5 04 



SEQ 163 



3599 








i 










3600 








{TEST 


6, SUBTES 


T 1 






3601 


















3602 








IvERIFIES THAT 


WRITING OVER THE END-OF- 


TAPE CEO T ) 




3603 








{MARKER CAUSES 


TAPE STATUS ALERT TERMINATION. IF THE 




3604 








{TAPE 


TRANSPORT 


DOES NOT RECOGNIZE THE 


EOT MARKER, THE 




3605 








{TAPE 


WILL RUN 


DFF THE END OF THE REEL 


CAUSING THE 




3606 








{PROGRAM SEQUENCE TO BE ABORTED WITH A 


FATAL ERROR 




3607 








jINOICATION. IN 


THIS CASE, CORRECTIVE MAINTENANCE 




3608 








;MUST 


BE PERFORMED USING THE TRANSPORT' 


S BUILT-IN 




?i609 








{MAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 




3610 








{IF THE CONTROLLER DOES NOT RECOGNIZE 1 


fHE EOT, THE 




3611 








{TRANSPORT WILL 


FAULT BUT THE TAPE WILL NOT RUN OFF 




3612 








{THE END OF THE 


REEL BUT THE TRANSPORT 


MUST BE 




3613 








{MANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 




3614 








{FATAL DIAGNOSTIC ERROR. 






3615 


















3616 


















3617 


















3618 


















3619 








; - 










3620 


















3621 


056072 








BGNSUB 




{>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




056072 












T6.1: 






056072 


104402 










TRAP 


C$BSUG 


3622 


056074 


004737 


063232 




JSR 


PC.T34REST 


{SET COMMANO PACKET 




3623 


056100 


004737 


063366 




JSR 


PC.T34RT3 


{RESTORE PACKET 




3624 


056104 


004737 


063324 




JSR 


PC.T34RT2 


{SET UP OTHER COMMAND PACKET 




3625 


056110 


012737 


176750 060674 




MOV 


465000. ,T34DLY 


{SET UP COUNTER 




3626 


056116 


004737 


016054 


10$: 


JSR 


PC.SOFINIT 


{00 INITIALIZE ON CONTROLLER 




3627 


056122 


103433 






3CS 


20$ 


{BR IF INIT WAS OK 




3628 


056124 








OELAY 


250 


{DELAY A WHILE 






056124 


012727 


000250 








MOV 


»250 V (PC)» 




056130 


000000 










.WORD 







056132 


013727 


002116 








MOV 


LSDLY.CPC)* 




056136 


000000 










.WORD 







056140 


005367 


177772 








DEC 


-6CPC) 




056144 


001375 










BNE 


. -4 




056146 


005367 


177756 








DEC 


-22CPC) 




056152 


001367 










BNE 


.-20 


3629 


056154 


016501 


000002 




MOV 


TSSRCR5),R1 


{GET TSSR STATUS 




3630 


056160 


032701 


000200 




BIT 


0SSR.R1 


{CHECK FOR SSR SET 




3631 


056164 


001012 






BNE 


20* 


;BR, WHEN SSR IS SET 




3632 


056166 


005337 


060674 




DEC 


T340LY 


{BUMP COUNTER DOWN 




3633 


056172 


001351 






BNE 


10* 


;BR, IF MORE DELAY REQUIRED 




3634 


056174 


005237 


002214 




INC 


FATFLG 


{ERROR COUNT 




3638 


056200 


010001 






MOV 


R0.R1 


{CONTENTS OF TSSR REGISTER 




3639 


056202 
056202 
056204 
056206 
056210 


104455 
001131 
003646 
012114 






ERRDF 


ERRNO # SFIERR,SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 

"RAP 
.WORD 
.WORD 
.WORD 


C*ERDF 
601 

SKIEHH 
SFIMSG 


3640 


056212 
056212 


104406 




20$: 


CKLOOP 




{LOOP IF SELECTED 

TRAP 


CSCLP1 


3641 


056214 


013737 


002174 060560 




MOV 


UNITN.T34DSW 


{SET UP DRIVE NUMBER 




3642 


056222 


052737 


000040 060560 




BIS 


0BIT5, T34DSW 


{TURN ON HIGH SPEED TO SAVE TIME 


3643 


056230 


012704 


060540 




MOV 


OT34PACKET,R4 


{SUBROUTINE NEEDS PACKET ADDRESS 



113 



TEST I - HARDWARE TEST 1-8 TEST MACRO M1U3 
TEST 6: OPERATIONS AT EOT 



06-FEB-64 16:04 



3644 
3645 
3646 
3650 
3651 



3652 

3653 
3654 
3655 
3656 
3657 
3661 



3662 

3663 
3664 
3665 
3666 

3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3680 



3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 

3691 
3692 
3693 
3694 



056234 

056240 

056242 

056246 

056250 

056250 

056252 

056254 

056256 

056260 

056260 

056262 

056266 

056270 

056274 

0562 76 

056302 

056302 

056304 

056306 

056310 

056312 

056312 

056314 

056322 

056326 

056334 

056342 

056346 

056352 

056356 

056362 

056366 

056370 

056372 

056374 

056376 

056402 

056402 

056404 

056406 

056410 

056412 

056416 

056420 

056422 

056426 

056430 

0564 34 

056436 

056440 

056444 

056444 

056446 

056454 

056462 

0564 70 



004737 
103407 
005237 
010001 

104456 
001132 
005052 
012114 

104406 
004737 
103411 
016501 
010004 
005237 

104456 
001133 
062337 
012126 

104406 
012737 
012703 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001010 
005303 
001364 
005237 

104455 

001134 
062116 
012126 
032701 
001001 
000752 
013701 
010102 
052702 
020102 
001402 
000137 

104406 

012737 
013737 
012737 
012704 



010742 
002214 



011074 
000002 
002214 



140005 
176750 
003116 
006654 
060660 
000000 
016330 
000002 
000200 



002214 



000004 

060570 
000001 

056346 



140005 
005116 
006654 
060660 



JSR 


PC.WRTCHR 


BCS 


30$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



30$; 



CKLOOP 



JSR 


PC, REWIND 


BCS 


35$ 


MOV 


TSSR(R5!),R1 


MOV 


R0,R4 


INC 


FATFLG 


ERRHRD 


ERRN0.T34RWN, PKTSSR 



35$ j 



CKLOOP 



060660 

060662 
060666 



40$: 



MOV 


$140005. T34PK3 


MOV 


065000. ,R3 


MOV 


FREE,T34UB 


MOV 


03500., T34SZ 


MOV 


0T34PK3.R4 


MOV 


R4,TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BNE 


50$ 


DEC 


R3 


BNE 


40$ 


INC 


FATFLG 


ERRDF 


ERRN0,T34ET,PKTSSR 



060660 
060662 
060666 



50$; 


BIT 


0BIT2.R1 




BNE 


60$ 




BR 


40$ 


60$: 


MOV 


T34BFR*6,R1 




MOV 


R1.R2 




BIS 


0BIT0.R2 




CMP 


R1,R2 




BEQ 


80$ 




JMP 


40$ 


80$: 


CKLOOP 






MOV 


0140005, T34PK3 




MOV 


FREE,T34WB 




MOV 


03500. , T34SZ 




MOV 


0T34PK3.R4 



SEU 164 



i ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMAND ISSUED OK 

, ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



I LOOP IF SELECTED 



TRAP 



C$ERHRD 
602 

WRTMSG 
SFIMSG 

CSCLP1 



jREWIND CALL 

iBR, IF TSSR IS OK (GOOD) 

iGET TSSR 

j SET UP PACKET 

I ERROR COUNT 

j TSSR IS INCORRECT AFTER REWIND 

TRAP CIERHRD 
.WORD 603 
.WORD T34RWN 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP CSCLP1 

{WRITE DATA, ACK, CVC-1 

{SET MAX NUMBER OF WRITES 

I SET UP WRITE BUFFER ADDRESS 

{SET UP BUFFER SIZE (4K BYTES) 

jR4 - POINTER TO PACKET 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

;ARE THEY EQUAL 

{BR, IT MIGHT BE ENO OF TAPE 

{DEC RECORD COUNTER 

}BR, IF MORE TO GO 

{ERROR COUNT 

{EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C$ERDF 
.WORD 604 
.WORD T34ET 
.WORD PKTSSR 

{CHECK FOR TAPE STATUS ALERT 

|BR, IF SET 

{KEEP GOING 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET THE EOT BIT ON IN EXPECTED 

{WAS THE BIT ON 

{BR, IF EOT WAS FOUND 

iKEEP LOOKING 

{LOOP IF SELECTED 

TRAP C$CLP1 

{WRITE DATA, ACK, CVC-1 

{SET UP WRITE BUFFER ADDRESS 

jSET UP BUFFER SIZE (4K BYTES) 

jR4 - POINTER TO PACKET 



J13 



TEST 1 - HARDWARE TEST 


1-8 TES1 


TEST 6: OPERATIONS AT 1 


EOT 


3695 0564 74 


010465 


000000 


3696 056500 


004737 


016330 


3697 056504 


016501 


000002 


3698 056510 


012702 


100204 


3699 056514 


020102 




3700 056516 


001406 




3701 056520 


005237 


002214 


3705 056524 






056524 


104456 




056526 


001135 




056530 


061367 




056532 


012126 




3706 056534 






056534 


104406 




3707 056536 


013701 


060570 


3708 056542 


010102 




3709 056544 


052702 


000001 


3710 056550 


020102 




3711 056552 


001406 




3712 056554 


005237 


002214 


3716 056560 






056560 


104456 




056562 


001136 




056564 


061451 




056566 


015554 




3717 056570 






056570 


104406 




3718 056572 


012737 


140011 


3719 056600 


012704 


060660 


3720 056604 


010465 


000000 


3721 056610 


004737 


016330 


3722 056614 


016501 


000002 


3723 056620 


012702 


100204 


3724 056624 


020102 




3725 056626 


001406 




3726 056630 


005237 


002214 


3730 056634 






056634 


104456 




056636 


001137 




056640 


061300 




056642 


012126 




3731 056644 






056644 


104406 




3732 056646 


013701 


060570 


3733 056652 


010102 




3734 056654 


052702 


000001 


3735 056660 


020102 




3736 056662 


001406 




3737 056664 


005237 


002214 


3741 056670 






056670 


104456 




056672 


001140 




056674 


061002 




056676 


015554 




3742 056700 






056700 


104406 




3743 056702 


012737 


141410 



MACRO M1113 



06-FEB- 


84 


18:04 




SEQ 165 


MOV 




R4.TSDBCR5) 




j ISSUE COMMAND 


JSR 




PC.WAITF 




{WAIT FOR SSR TO SET 


MOV 




TSSR(R5),R1 




{GET TSSR CONTENTS 


MOV 




4SC!SSR!BIT2, 


,R2 


;SET UP EXPECTED 


CMP 




R1,R2 




{ARE THEY EQUAL 


BEQ 




90$ 




,BR, IF THEY ARE OK 


INC 




FATFLG 




j ERROR COUNT 


ERRHRO 


ERRN0.T34ET2, 


.PKTSSR 


{WRITE TAPE AT EOT FAILED TO 










TRAP 



90$ ! CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



100$: CKLOOP 

060660 MOV 

MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



110$: CKLOOP 

MOV 
MOV 
BIS 
CMP 

BEQ 
INC 
ERRHRD 



T34BFRf6,Rl 

R1,R2 

#8IT0,R2 

R1.R2 

100$ 

FATFLG 

ERRN0,T34ETN,EXPREC 



#140011, T34PK3 

0T34PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

#SC!SSR!BIT2,R2 

R1.R2 

110$ 

FATFLG 

ERRN0.T34WTM, PKTSSR 



T34BFR*G,R1 

P1.R2 

0BIT0.R2 

R1.R2 

120$ 

FATFLG 

ERRN0.T34ET0.EXPREC 



120$ j CKLOOP 

HOV #141410, T34PK3 



{LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



SET TSA 
C$ERHRD 
605 
T34ET2 
PKTSSR 



<PICK UP XSTO 

{^ET UP EXPECTED 

{SET THE EOT BIT ON IN EXPECTED 

{WAS THE BIT ON 

{BR, IF EOT WAS FOUND 
{ERROR COUNT 

;EOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 



C$CLP1 



{LOOP IF SELECTED 



CSERHRO 

606 

T34ETN 

EXPREC 



{WRITE TAPE MARK 
{R4 - POINTER TO 
{ISSUE COMMAND 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IF STATUS IS GOOD 
{ERROR 

NOT FOUND 



TRAP 
ACK, CVC-1 
PACKET 



C$CLP1 
COMMAND 



;SET 
;ARE 
{BR, 



{EOT 



(OK) 
COUNT 
(USE SHORTER 



TAPE?) 



{LOOP IF SELECTED 



TRAP 
.WORD 

.WORD 
.WORD 

TRAP 



{PICK UP XSTO 

{ SET UP EXPECTED 

{SET THE EOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

i BR. IF EOT WAS FOUND 
{ERROR COUNT 

{EOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERH«D 
607 
T34WTM 
PKTSSR 

C$CLP1 



jl.OOP IF SELECTED 



TRAP 



C$ERHRD 
608 
T34ET0 
EXPREC 

C$CLP1 



{SKIP TAPE MARK REVERSE ACK, CVC-1 COMMAND 



K13 



TEST I - HAHDWAI 


RE TEST 


1-8 TEST MACRO ^ 


TEST 6: OPERATIONS AT 


EOT 


3744 056710 


012737 


000001 060662 


3745 056716 


012704 


060660 


3746 056722 


010465 


000000 


3747 056726 


004737 


016330 


3748 056732 


016501 


000002 


3749 056736 


012702 


000200 


3750 056742 


020102 




3751 056744 


001406 




3752 056746 


005237 


002214 


3756 056752 






056752 


104456 




056754 


001141 




056756 


061700 




056760 


012126 




3757 056762 






056762 


104406 




3 758 056764 


013701 


060570 


3759 056770 


010102 




3760 056772 


052702 


000001 


3761 056776 


020102 




3762 057000 


001406 




3763 057002 


005237 


002214 


3767 057006 






057006 


104456 




057010 


001142 




057012 


061451 




057014 


015554 




3768 057016 






057016 


104406 




3769 057020 


013701 


060570 


3770 057024 


010102 




3771 057026 


052702 


100000 


3772 057032 


020102 




3773 057034 


001406 




37 74 057036 


005237 


002214 


3778 057042 






057042 


104456 




057044 


001143 




057046 


061763 




057050 


015554 




3779 057052 






057052 


104406 




3780 057054 


012737 


140410 060660 


3781 057062 


012737 


000001 060662 


3782 057070 


012704 


060660 


3783 057074 


010465 


000000 


3784 057100 


004737 


016330 


3785 057104 


016501 


000002 


3786 057110 


012702 


100204 


3787 057114 


020102 




3788 057116 


001006 




3789 057120 


005237 


002214 


3793 057124 






057124 


104456 




057126 


001144 




057130 


060 714 




057132 


012126 





FEB -84 


18:04 


SEQ 166 


MOV 


01.T34WB 


iSET NUMBER ( 1 ) OF TMS TO SKIP 


MOV 


4T34PK3.R4 


»R4 - POINTER TO PACKET 


MOV 


R4,TSDBCR5) 


i ISSUE COMMAND 


JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 


MOV 


TSSR(R5),Rl 


{GET TSSR CONTENTS 


MOV 


4SSR.R2 


{SET UP EXPECTED 


CMP 


R1.R2 


j ARE THEY EQUAL 


BEQ 


130$ 


{BR, IF STATUS IS GOOD COK) 


INC 


FATFLC 


} ERROR COUNT 


ERRHRD 


ERRN0.T34STM, PKTSSR 


;SKIP TAPE MARK REV. DIDN'T SET 

TRAP 



130$: CKLOOP 



140$ 



150$: 



{LOOP IF SELECTED 



.WORD 
.WORD 

.WORD 

TRAP 



TSA 
CiERHRD 

609 

T34STM 

PKTSSR 

C$CLP1 



MOV 


T34BFR»6.R1 




jPICK UP XSTO 






MOV 


R1.R2 




j SET UP EXPECTED 






BIS 


06IT0.R2 




;SF.T THE EOT BIT ON IN EXPECTED 




CMP 


R1.R2 




j WAS THE BIT ON 






BEQ 


140$ 




{BR, IF EOT WAS FOUND 






INC 


FATFLG 




j ERROR COUNT 






ERRHRD 


ERRN0.T34ETN, 


EXPREC 


{EOT BIT (XSTO) NOT SET 


TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 

610 

T34ETN 

EXPREC 


CKLOOP 






lLOOP IF SELECTED 


TRAP 


CiCLPl 


MOV 


T34BFR»6,R1 




jPICK UP XSTO 






MOV 


R1.R2 




;SET UP EXPECTED 






BIS 


*BIT15,R2 




iSET THE TMK BIT ON IN 1 


EXPECTED 




CMP 


R1,R2 




{WAS THE BIT ON 






BEQ 


150$ 




{BR, IF TMK WAS FOUND 






INC 


FATFLG 




tERROR COUNT 






ERRHRD 


ERRN0,T34TMK, 


.EXPREC 


{EOT BIT (XSTO) NOT SET 


TRAP 

.WORD 
.WORD 
.WORD 


CiERHRD 

611 

T 34 TMK 

EXPREC 


CKLOOP 






{LOOP IF SELECTED 


TRAP 


CiCLPl 


MOV 


0140410, T34PK3 


{SPACE RECORDS REVERSE, 


ACK, CVC'l CMD 


MOV 


01.T34WB 




{SPACE ONE RECORD REVERSE 




MOV 


OT34PK3.R4 




iR4 • POINTER TO PACKET 






MOV 


R4,TSDB(R5) 




{ISSUE COMMAND 






JSR 


PC.WAITF 




{WAIT FOR SSR TO SET 






MOV 


TSSRCR5),R1 




{GET TSSR CONTENTS 






MOV 


«SC!SSR!BIT2, 


,R2 


tSET UP EXPECTED 






CMP 


R1,R? 




{ARE! THEY EQUAL 






8NE 


160$ 




{BR, IT MIGHT BE END OF 


TAPE 




INC 


FATFLG 




{ERROR COUNT 






ERRHRD 


ERRN0.T34P0S 


( PKTSSR 


{EOT NOT FOUND (USE SHORTER TAPE?) 










TRAP 


CiERHRD 










.WORD 


61? 










.WORD 


T34P0S 










.WORD 


PKTSSR 



L13 



TEST 1 - HARDWARE TEST 
TEST 6: OPERATIONS AT 



£o? 



TEST MACRO M1113 



160*: 



3794 057134 






057134 


104406 




3795 057136 


013701 


060570 


3796 057142 


010102 




3797 057144 


052702 


000001 


3798 057150 


020102 




3799 057152 


001406 




3800 057154 


005237 


002214 


3804 057160 






057160 


104456 




057162 


001145 




057i64 


061451 




057166 


015554 




3805 057170 






057170 


104406 




3806 057172 


013701 


060570 


3807 057176 


010102 




3808 057200 


042702 


100000 


3809 057204 


020102 




3810 057206 


001406 




3811 057210 


005237 


002214 


3815 057214 






057214 


104456 




057216 


001146 




057220 


061763 




OV-7222 


015554 




3810 C '37224 






e.>7224 


104406 




38V7 057226 


012737 


140410 060660 


3618 057234 


012737 


000001 060662 


3819 057242 


012704 


060660 


3820 057246 


010465 


000000 


3821 057252 


004737 


016330 


3822 057256 


016501 


000002 


3823 057262 


012702 


000200 


3824 057266 


020102 




3825 057270 


001406 




3826 057272 


005237 


002214 


3830 057276 






057276 


104456 




057300 


001147 




057302 


060714 




057304 


012126 




3831 057306 






057306 


104406 




3832 057310 


013701 


060570 


3833 057314 


010102 




3834 057316 


042702 


000001 


3835 057322 


020102 




3836 057324 


001400 




3837 057326 






057326 


104406 




3838 057330 


012737 


1 iUOlO 060660 


3839 057336 


012737 


000002 060662 


3840 057344 


012704 


060660 


3841 057350 


010465 


000000 


3842 057354 


004 73 7 


016330 



FEB -84 


18 : 04 




5EU 167 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


MOV 


T34BFR*6,R1 




j PICK UP XSTO 


MOV 


R1,R2 




}SET UP EXPECTED 


BIS 


♦6IT0.R2 




iSET THE EOT BIT ON IN EXPEC 


CMP 


R1,R2 




{WAS THE BIT ON 


BEQ 


163* 




lBR f IF EOT WAS FOUND 


INC 


FATFLG 




{ERROR COUNT 


ERRHRD 


ERRN0.T34ETN, 


.EXPREC 


{EOT BIT (XSTO) NOT SET 



163$: CKLOOP 



165$ 



167$ 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



C$CLP1 



MOV 


T34BFR*6,R1 


MOV 


R1.R2 


BIC 


06IT15.R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T34TMK, EXPREC 



l^OI: 



$140410, T34PK3 

•1.T34W8 

*T34PK3,R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

*SSR,R2 

R1.R2 

167$ 

FATFLG 

ERRN0.T34P0S.PKTSSR 



MOV 


T34BFR+6.R1 


MOV 


R1.R2 


BIC 


0BITO.R2 


CMP 


R1.R2 


BEQ 


170$ 


CKLOOP 




MOV 


0140010, T34 


MOV 


02.T34UB 


MOV 


0T34PK3.R4 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 



lLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
613 

T34ETN 
EXPREC 



C$CLP1 



{PICK UP XSTO 
{SET UP EXPECTED 

{CLEAR THE TMK BIT ON IN EXPECTED 
{WAS THE BIT ON 
;BR, IF TMK WAS FOUND 
{ERROR COUNT 
BIT (XSTO) NOT SET 



{EOT 



{LOOP IF SELECTED 



RECORDS 



REVERSE 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
ACK, 



C$ERHRD 

614 

T 34 TMK 

EXPREC 



CVC 



{SPACE 

{SPACE ONE RECORD REVERSE 

jR4 - POINTER TO PACKET 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IT MIGHT BE END OF TAPE 
{ERROR COUNT 

NOT FOUND (USE SHORTER TAPE?) 



C$CLP1 
1 CMD 



{SET 

{ARE 
{BR, 



{EOT 



{LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
615 
T34P0S 
PKTSSR 



C$CLP1 



jPICK UP XSTO 

jSET UP EXPECTED 

;CLEAR THE EOT BIT ON IN EXPECTED 

{WAS THE BIT OFF 

;BR, IF EOT WAS FOUND 

{LOOP IF SELECTED 



j SPACE RECORDS FORWARD, 
{SPACE TWO RECORDS 
{ R4 - POINTER TO PACKET 
5 ISSUE COMMAND 
{WAIT FOR SSR TO SET 



TRAP 
ACK, 



CiCL.Pi 
CVC-1 



M13 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 6: OPERATIONS AT EOT 



3843 057360 


016501 


000002 


3844 037364 


012702 


000200 


3845 057370 


020102 




3846 057372 


001406 




3847 057374 


005237 


002214 


3851 057400 






057400 


104456 




057402 


001150 




057404 


060714 




05 7406 


012126 




3852 057410 






057410 


104406 




3853 057412 


013701 


060570 


3854 057416 


010102 




3855 057420 


052702 


000001 


3856 057424 


020102 




3857 057426 


001406 




3858 057430 


005237 


002214 


3862 057434 






057434 


104456 




057436 


001151 




057440 


061530 




057442 


015554 




3863 057444 






057444 


104406 




3864 057446 


012737 


140401 060660 


3865 057454 


013737 


003116 060662 


3866 057462 


012704 


060660 


3867 057466 


010465 


000000 


3868 057472 


004737 


016330 


3869 057476 


016501 


000002 


3870 057502 


012702 


000200 


3671 057506 


020102 




3872 057510 


001406 




3873 057512 


005237 


002214 


3877 057516 






057516 


104456 




057520 


001152 




057522 


061066 




057524 


012126 




3878 057526 






057526 


104406 




3879 057530 


012737 


140401 060660 


3880 057536 


013737 


003116 060662 


3881 057544 


012704 


060660 


3882 057550 


010465 


000000 


3883 057554 


004 73 7 


016330 


3884 057560 


016501 


000002 


3885 057564 


012702 


000200 


3886 057570 


020102 




3887 057572 


001406 




3888 057574 


005237 


002214 


3892 05 7600 






057600 


104456 




057602 


001153 




057604 


061066 




057606 


012126 





190$ 



FEU -84 


18:04 




SEQ 168 




MOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 




MOV 


4SSR.R2 




l5ET UP EXPECTED 




CMP 


R1.R2 




j ARE THEY EQUAL 




BEQ 


190$ 




iBR, IT MIGHT BE END OF TAPE 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0.T34P0S, 


.PKTSSR 


{EOT NOT FOUND (USE SHORTER TAPE?) 








TRAP 


C$ERHRD 








.WORD 


616 








.WORD 


T34P0S 








.WORD 


PKTSSR 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T34BFRt6,Rl 




(PICK UP XSTO 




MOV 


R1.R2 




j SET UP EXPECTED 




BIS 


06IT0.R2 




j SET THE EOT BIT ON IN EXPECTED 




CMP 


R1.R2 




{WAS THE BIT ON 




BEQ 


200$ 




j BR, IF EOT WAS FOUND 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0.T34ETS, 


, EXPREC 


{EOT BIT (XSTO) NOT SET 

TRAP 

.WORD 
.WORD 
.WORD 


C$ERHRD 
617 
T34ETS 
EXPREC 



200$ 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



205$: CKLOOP 



$140401, T34PK3 

FREE,T34RB 

*T34PK3,R4 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

4SSR.R2 

R1.R2 

205$ 

FATFLG 

ERRN0.T34RRE, PKTSSR 



SET 
:ARE 
iBR. 



MOV 


0140401, T34PK3 


MOV 


FREE t T34RB 


MOV 


OT34PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


210$ 


INC 


FAU'LU 


ERRHRD 


ERRN0.T34RRE .PKTSSR 



;L0OP IF SELECTED 

TRAP C$CLP1 

{READ REVERSE, ACK , CVC-1 

{SET UP WRITE BUFFER ADDRESS 

jR4 « POINTER TO PACKET 

{ISSUE COMMAND 

f WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
ONLY SSR If SET 
{ERROR COUNT 

jEOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C$ERHRD 
.WORD 618 
.WORD T34RRE 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

;READ REVERSE, ACK, CVC-1 

{SET UP WRITE BUFFER ADDRESS 

{R4 - POINTER TO PACKET 

{ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

{SET UP EXPECTED 

i ARE THEY EQUAL 

{BR, IT MIGHT BE END OF TAPE 
{ERROR COUNT 

{EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C$b.RHRD 
.WORD 619 
.WORD M4RRI 
.WORD PKTSSR 



N13 



TEST 1 HARDWARE TEST 


1 8 TEST 


MACRO M1113 06 


-FEB-84 


18:04 


TEST 6: OPERATIONS AT 


EOT 








3893 057610 






210$: 


CKLOOP 




057610 


104406 










3894 057612 


012737 


140001 


060660 


MOV 


0140001, T34PK3 


3895 057620 


013737 


003116 


060662 


MOV 


FREE.T34RB 


3896 057626 


012737 


006654 


060666 


MOV 


03500. , T34SZ 


3897 057634 


012704 


060660 




MOV 


0T34PK3.R4 


3898 057640 


010465 


000000 




MOV 


R4,TSDBCR5) 


3899 057644 


004737 


016330 




JSR 


PC.WAITF 


3900 057650 


016501 


000002 




MOV 


TSSRCR5),R1 


3901 057654 


012702 


000200 




MOV 


0SSR.R2 


3902 057660 


020102 






CMP 


R1.R2 


3903 057662 


001406 






BEQ 


230$ 


3904 057664 


005237 


002214 




INC 


FATFLG 


3900 057670 








ERRHRD 


ERRN0,T34RRE,PKTSSR 


057670 


104456 










057672 


001154 










057674 


061066 










057676 


012126 










3909 057700 






230$: 


CKLOOP 




057700 


104406 










3910 057702 


012737 


140001 


060660 


MOV 


0140001, T34PK3 


3911 057710 


013737 


003116 


060662 


*JV 


FREE.T34RB 


3912 057716 


012737 


006654 


060666 


MOV 


03500., T34SZ 


3913 057724 


012704 


060660 




MOV 


4T34PK3.R4 


3914 057730 


010465 


000000 




MOV 


R-MSDBCR5) 


3915 057734 


004737 


016330 




JSR 


pr.MATTF 


3916 057740 


016501 


000002 




MOV 


TSSK^.Rl 


3917 057744 


012702 


000200 




MOV 


0SSR,r;_ 


3918 057750 


020102 






CMP 


R1.R2 


3919 057752 


001406 






BEQ 


235$ 


3920 057754 


005237 


002214 




INC 


FATFLG 


3924 057760 








ERRHRD 


ERRN0.T34RRE, PKTSSR 


057760 


104456 










057762 


001155 










057764 


061066 










057766 


012126 










3925 057770 






235$: 


CKLOOP 




057770 


104406 










3926 057 7 72 


013701 


060570 




MOV 


T34BFR*6,R1 


3927 057776 


010102 






MOV 


R1.R2 


3928 060000 


052702 


000001 




BIS 


06ITO.R2 


3929 060004 


020102 






CMP 


Rl.rt^ 


3930 060006 


001406 






BEQ 


240$ 


3931 060010 


005237 


002214 




INC 


FATFLG 


3935 060014 








ERRHRD 


ERRN0,T34ETZ,EXPREC 


060014 


104456 










060016 


001156 










060020 


061622 










O60022 


015554 










3935 060024 






240$: 


CKL OOP 




060024 


104406 










393^ 060026 


012/37 


140410 


0606* 1 


MOV 


0140410, T34PK3 


3938 060034 


012737 


000005 


060662 


MOV 


05.T34RB 


3939 060042 


012704 


060660 




MOV 


OT34PK3.R4 


3940 060046 


010465 


000000 




MOV 


R4.TSUBCR5) 


394 1 060052 


004737 


016330 




JSR 


PC.UAITF 


3942 060056 


016501 


000002 




MOV 


TSSR(R5),R1 



SEQ 169 



{LOOP IF SELECTED 

TRAP C$CLP1 
{READ DATA, ACK, CVC-1 
j SET UP WRITE BUFFER ADDRESS 
;SET UP BUFFER SIZE C4K BYTES) 
;R4 - POINTER TO PACKET 
j ISSUE COMMAND 
{WAIT FOR SSR TO SET 
,GET TSSR CONTENTS 
j SET UP EXPECTED 
{ARE THEY EQUAL 
jBR, IT MIGHT BE END OF TAPE 

{ERROR COUNT 
{EOT NOT FOUND (USE SHORTER TAPE?) 



TRAP 


C$ERHRD 


.WORD 


620 


.WORD 


T34RRE 


.WORD 


PKTSSR 


LOOP IF SELECTED 




TRAP 


C$CLP1 


READ DATA, ACK, CVC-1 




SET UP WRITE BUFFER ADDRESS 




SET IP BUFFER SIZE C4K BYTES) 




R4 - POINTER TO PPCKET 




ISSUE COMMAND 




WAIT FOR SSR TO SET 




GET TSSR CONTENTS 




SET UP EXPECTED 




ARE THEY EQUAL 




8R, IT MIGHT BE END OF TAPE 




{ERROR COUNT 




EOT NOT FOUND (USE SHORTER TAPE?) 


TRAP 


C$ERHRD 


.WORD 


621 


.WORD 


T34RRE 


.WORD 


PKTSSR 



{LOOP IF SELECTED 



TRAP 



C$CLP1 



{PICK UP XSTO 

;SET UP EXPECTED 

iSET THE EOT BIT ON IN EXPECTED 

{WAS THE LilT ON 

}BR, I* EOT WAS FOUND 

{ERROR COUNT 
{EOT BIT (XSTO) NOT SET 



{LOOP IF SELECTED 



TRAP 


CJERHRD 


.WORD 


622 


.WOC 


T34ETZ 


,uono 


L .~?OEC 



TRAP 



CtCLPl 



jSPACE RECORDS REVERSt. ACK, CV>1 CMD. 

{NUMBER Or RECORDS TO SPACE 

;R4 - POINTER TO PACKET 

{ISSUE COMMANO 

;WAIT FOR SSR TO S£T 

;GET TSSR CONTENTS 



-VIA 



TEST 

TEST 



3945 
3944 

3945 
3946 
3950 



3951 

3952 
3953 
3954 
3955 
3956 
3957 
3961 



396? 

3963 
3964 
3965 
3966 
39*7 
3960 
3969 
3970 
3971 
3972 
3976 



3977 

39 78 
3979 
3960 
3981 
3962 
3983 

3964 
3985 
3966 
398? 

3988 
3989 

3990 
3991 



HARDWARE TEST i 8 
OPERATIONS AT EOT 



TEST MACRO Ml 113 06-F'FR 84 18* 04 



SEQ 170 



060062 

060066 

060070 

0600 72 

060076 

060076 

060100 

060102 

060104 

060106 

060106 

060 UO 

060114 

060116 

060122 

060124 

060126 

060132 

060132 

060154 

060156 

060140 

060142 

060142 

060144 

060152 

060160 

060164 

060170 

060174 

060200 

060204 

060206 

060210 

060214 

060214 

060216 

060220 

060222 

060224 

060224 

060226 

060232 

060254 

060240 

060242 

060244 

060244 

060246 

060254 

060262 

060266 

0602 72 

060 300 

060 30-* 

060310 

W>Q5i4 



012702 
020102 
001406 
005237 

104456 
001157 
060714 
012126 

104406 
013701 
010102 
042702 
020102 
001406 
005237 

101456 
001160 
061157 
015554 

104406 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001161 
062116 
012126 

104406 
013701 
010102 
052 702 
020102 
001400 

104406 
012737 
012737 
012704 
010465 
012737 
004737 
016501 
032/01 
00101/ 



000200 
002214 



060570 
000001 

002214 



140010 
000005 
060660 
000000 
016330 
000002 
000200 



002214 



060570 
000001 



141410 
000O03 
060660 
OOOOOO 

176 750 
016550 
00000^ 
0QO20O 



250*: 



260* j 



060660 
060662 



280*! 



060660 
060662 



0606 7 A 



2as*i 



MOV 


♦SSR.R2 




jSET UP EXPECTED 




CMP 


R1.R2 




lARt THEY EQUAL 




BEQ 


250* 




jBR, IT MIGHT BE END OF TAPE 




INC 


FATFLU 




i ERROR COUNT 




ERRHRD 


ERRNO.T34P0S 


, PKTSSR 


jPOSITION COMMANO DIDN'T WORK 

TRAP 
.WORD 
.WORD 
.WORD 


C*ERHRD 
623 
T34P0S 
PKTSSR 


CKLOOP 






lLOOP IF SELECTED 

TRAP 


C*CLP1 


MOV 


T34BFR»6,R1 




jPICK UP XSTO 




MOV 


R1.R2 




»5ET UP EXPECTED 




BIC 


♦BIT0.R2 




iCLEAR THE EOT BIT ON IN EXPECTED 


CMP 


R1.R2 




jWAS THE BIT ON 




BEQ 


260* 




iBR. If EOT WAS FOUND 




INC 


FATFLG 




I ERROR COUNT 




ERRHRD 


ERRN0.T34ETC 


♦EXPREC 


jEOT BIT (XSTO) NOT CLEAR 

TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
624 

T34ETC 
EXPREC 


CKLOOP 






lLOOP IF SELECTED 

TRAP 


C*CLP1 


MOV 


♦140010. T34PK3 


iSPACE RECORDS FORWARD, ACK , CVC-1 CMO . 


MOV 


♦5, T 54 RB 




iNUMBER Of RECORDS TO SPACE 




MOV 


♦T34PK3.R4 




,R4 • POINTER TO PACKET 




MOV 


R4,TSDB(R5) 




j ISSUE COMMANO 




JSP 


PC.WAITF 




tWAIT F0« SSR TO SET 




MOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 




MOV 


♦SSR»R2 




jSET UP EXPECTED 




CMP 


R1.R2 




jARE THEt EQUAL 




BEQ 


270* 




jBR. IT MIGHT BE END OF TAPE 




INC 


FATFLG 




I ERROR COUNT 




ERRHRD 


ERRN0.T34ET, 


PKTSSR 


iTSSR NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 


CfERHRD 
625 
T 54E T 

PKTSSR 



270* s CKLOOP 



MOV 

MOV 
BIS 
CMP 
B£Q 
CKLOOP 



MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
BIT 
UNI 



jLOOP IF SELECTED 



TRAP 



T34BFR*6,R1 
R1.R2 

#eno,R«? 

R1.R2 

280* 



♦141410, T34PK3 

♦3.T34RB 

♦T34PK5.R4 

R4,TSD6(R5) 

♦65000, .M4DLT 

PC.WAITF 

ISSR(R5) t Rl 

0SSR t Rl 



CICLP1 



!d6* 



iPICK UP XSTO 

iSE T UP EXPECTED 

jSET THE EOT BIT ON IN EXPECTED 

jWAS THE BIT ON 

iBR. IF EOT WAS FOUND 

lLOOP IF SELECTED 

TRAP OCLP1 

iSKIP FILE HARKS RE VERSE , AQK , CVC'l COMMAND 
iNUMBER Of FILE MARKS 
jR4 • POINTER TO PACKET 
j ISSUE COTtlAND 
iSET UP DELAY COUNTER 
iWAIT F0« SSR TO SE T 
ibt T TSSR CONTENTS 
l CMEQK fOl SSR SE.T 
iMU WHEN SSR X£ tit I 



m 



CI 4 



8^BW!Bn5 e ^ £o? TEST MACR0 M1U3 



06-FEB 84 1B}04 



SEQ 171 



5993 



3994 
3995 
3996 
3997 
3998 
3999 
4000 
4004 



4005 
4006 
4007 
4008 
4009 
4010 
4011 
4015 



4016 

4017 

4018 
4019 
4020 
4021 
4022 
4026 



4027 

4028 

4029 



4030 
4051 
4052 
4055 
4034 



060316 

060316 

060322 

060324 

060330 

060332 

060336 

060340 

060344 

060346 

060352 

060354 

060360 

060362 

060364 

060366 

060372 

060372 

060374 

060376 

060400 

060402 

060406 

06041? 

060414 

060420 

060422 

060424 

060430 

060430 

060432 

060434 

0604 36 

060440 

060440 

060442 

060446 

060450 

060454 

04.0456 

0^0460 

060464 

060464 

060466 

06O4/0 

060472 

060474 

0604 74 

0604 76 

0604 76 

0604 76 

060476 

060500 

060506 

060510 

060514 

060544 



012727 000250 

000000 

013727 002116 

000000 

005367 177772 

001375 

005367 177756 

001367 

C3337 060674 

001352 

012702 000200 

020102 

001007 

005303 

005237 002214 

104456 

001162 

062116 

012126 

032701 000004 

013701 060570 

01010? 

042702 000001 

020102 

001406 

005237 002214 

10*456 
001163 
061157 
015554 

104406 

013701 060570 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
001164 
061234 
015554 

104406 



104403 

02372? 002214 000017 

103402 

004 737 01/26,' 

004 737 0X6&36 



DELAY 250 



286* j 



290 $: 



3201: 
600$: 



PEC 


T34DLY 


BNE 


2851 


MOV 


•SSR.R2 


CMP 


R1.R2 


BNE 


2901 


DEC 


R3 


TNC 


FATFLG 


ERRMRD 


ERRN0,T34ET,PKVSSR 



BIT 

MOV 
MOV 
BIC 
CMP 
BEQ 
INC 
ERRHND 



3001} CKLOOP 



*6IT2,Rl 

T34BFR»6.Rl 

R1.R2 

♦6IT0.R2 

R1.R2 

3001 

FATf LG 

ERRN0.T34ETC.EXPREC 



MOV 


T34BfR*6,Rl 


MOV 


R1.R2 


BIS 


♦6IT1.R2 


CMP 


R1.R2 


BEQ 


320$ 


INC 


FATFLG 



ERRHRD ERRN0,T34B0T,EXPRtC 



CKLDOP 



Wli 



ENDS'*. *3 



CMP >ATHli.0i5 

HI U 9991 

JSR PC.CKDROP 



I WAIT ABOUT ,25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBUHP COUNTER 

l8R, IF MORE TO COUNT 

iSET UP EXPECTED 

lARE THEY EQUAL 

jBR, IT MIGHT BE ENO Of TAPE 

iDEC RECORD COUNTER 
l ERROR COUNT 

lEOT NOT FOUND (USE SHORTER TAPE 

TRAP 
.WORD 
.WORD 
.WORD 

I CHECK FOR TAPE STATUS ALERT 

iPICK UP XSTO 

iSET UP EXPECTED 

iCLEAR THE EOT BIT IN EXPECTED 

iWA5 THE BIT ON 

iBR, IF EOT WAS FOUND 
I ERROR COUNT 

lEOT BIT (XSTO) NOT CLEAR 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



*250,(PC)* 


L IDLY, (PC) • 


-6(PC) 
. 4 

-22CPC) 
. -20 



7) 

CIERHRD 
626 
T54ET 
PKTSSR 



1 1 OOP IF SELECTED 



jPICK UP XSTO 
ibET UP EXPECTED 

THE BOT PIT ON IN EXPECTED 

THE BIT ON 

IF BOT WAS FOUNO 

jERROR COUNT 
BIf (XSTO) NOT CLEAR 

TRAP 
.WORD 
.WORD 
.WORD 
U.OOP IF SELECTED 

TRAP 



CIERHRD 

627 

T34ETC 

EXPREC 

CICLP1 



ISET 

lUAS 
)BR. 

lEOT 



CIERHRD 
628 
T34BOI 
EXPREC 

C$CLP1 



JSR 



PCiISTLOOP 



l»»»nn)»u) E NO jU6 TEST >>»>>»»>*•»>> 

I 1006**: 

TRAP CttSUG 

I IS ERROR COUNT AT ?5 
t BR, I> LESS THAN J r > 
, TRi TO DROP THE L"NII 

tOO WE NEED TU ITERATE TEST 



\m i t> : Mm^sf lot TtsT macro Miu5 o6feb m i8, ° 4 



D14 



4035 


060520 


103002 


403b 


060522 


000137 0560 72 


4037 


060526 






060526 


104432 




0601)30 


002662 


4038 






4039 






4040 






404? 




060540 


4044 


060540 




4045 


060540 


100004 


4046 


06054? 


060550 


404 7 


060544 


OOOOOO 


4048 


060546 


000010 


4049 


060550 




4050 


060550 


060562 


4051 


060552 


OOOOOO 


405? 


060554 


000012 


4053 


060556 


OOOOOO 


4054 


060560 


OOOOOO 


405» 


060562 




4056 






4057 






4058 






4060 




060650 


4062 


060650 




4063 


060650 


10O0O6 


4064 


060652 


0606 76 


40*5 


060654 


OOOOOO 


4066 


060656 


000006 


4067 






4071 


060660 




4072 


060660 


10OO05 


4073 


060662 




40 74 


060662 


OOOOOO 


4075 


060664 


OOOOOO 


40 76 


060666 


OOOOOO 


4077 






4078 






4079 


0606/0 


OOOOOO 


4080 


0606 72 


OOOOOO 


4081 


060674 


OOOOOO 


4082 






4083 






4084 


0606 76 




4085 


060676 


010 


4086 


0606 7 7 


200 


4087 


060 700 


OOOOOO 


4088 


060702 


OOOOOO 


4089 






4090 






4091 






409? 






4093 






4094 


060 704 


100005 


4 095 


060 706 


100405 


4096 


060/10 


102005 



163*i 



DCC 
JMP 
EXIT 



163$ 
T34L00P 

T5T 



jLOCAL STORAGE FOR THIS TEST 



."<. »10 


>6l777/0 


T34PACKET: 




.WORD 


100004 


.UORD 


T34DAVA 


.WORD 





.WORD 


8. 


T34DATA; 




.WORD 


T34BFR 


.UORD 





.WORD 


10. 


.WORD 





T34DSW; .WORD 





T34BFR: .BLKW 


25. 



iWRITE SU6SY5TEM MEMORY COMMAND PACKET 



T34PK2; 



<. ♦10>617777O 





.WORD 


100006 




.WORD 


T34BF2 




.WORD 







.WORD 


6. 


T34PK3j 


.WORD 


100005 


T34RB: 






T34WB: 


.WORD 







.WORD 





T34SZ: 


.WORD 
.EVEN 





T34RSZ: 


.WORD 





T34CNT: 


.WORD 





T34DLYj 

J 


.WORD 





T34BF2: 






T34BS0: 


.BYTE 


10 


T34BS1: 


.BYTt 


?00 


T34S?: 


.WORD 





T3453i 

j 
i 


.WORD 






.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 

T34UD: .WORD 100005 
T34UDR: .WORD 100405 
134C0N: .WORD 102005 



SEG 172 



I BR, IF NO LOOP REQUIRED 
lEXeCUTE AGAIN 
lALL DONE THIS TEST 



TRAP 
.WORD 



c*Exir 

L 10061 



jCOMMANO PACKET FOR TEST 

IWRITE CHARACTERISTICS COMMANO. WITH ACK 

j ADDRESS OF CHARACTERISTICS BLOCK 

iSTARTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
l ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

j SELECT DRIVE. 
{MESSAGE BUFFER 



iWRITE SUB SYS MEM COMMAND. AND ACK 
jADDRESS OF SELECT BLOCK DATA 

jSIZE OF DATA PACKET 



I WRITE COMMANO, AND ACK 

i ADDRESS OF WRITE /READ BUFFER 

»SI/E OF BUFFER (EXTENT) 



iLARGEST TAPE RECORD IN BYTES 
i TAPE RECORD COUNTER 
jDELAY COLTER 



jBSELO AREA 
jBSELl ARtA 
iStl. 2 ARFA 
jDATA AREA 



jWRITE DATA (NEXT ) 
jWRlft DATA RETRY 
j WRITE C0NT1NUUS 



L14 



TfcST I HARDWARE TtST 1 8 TfcST MACRO M1113 
TEST 6: OPERATIONS AT EOT 



06-FEB-84 18:04 



4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 



060712 177777 



060714 
061002 
061066 
061157 
061234 
061300 
061367 
061451 
061530 
061622 
061700 
061763 
062063 
062116 
062205 
062263 
062337 
062406 
062461 
062527 
062602 
062671 
062773 
063046 
063120 
063207 



063232 
063232 
063236 
063242 
063246 
063252 
063254 
063260 
063264 
063266 
063272 
063274 
063500 
063304 
063312 
063314 
063320 
063322 



124 
12/ 
122 
125 
122 
127 
127 
127 
123 
122 
124 
120 
127 
105 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
117 



012701 
012721 
012721 
005021 
012721 
0-2721 
005021 
012721 
005021 
012711 
012702 
012 762 
005/42 
020227 
0013/1 
000207 



123 
122 
105 
156 
105 
122 
122 
122 
120 
105 
123 
117 
122 
117 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
160 



060540 
100004 
060550 

000012 
060562 

000024 

000000 
000030 
17777 7 

000000 



123 
111 
101 
141 
127 
111 
111 
111 
101 
101 
123 
123 
111 
124 
111 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
145 



060562 



.WORD 



177777 



SEQ 173 



lENO OF DATA 



, LOCAL TEXT MESSAGES FOR TEST 



T34P0S 

T34ET0 

T34RRE 

T34ETC 

T34B0T 

T34WTM 

T34ET2 

T34ETN 

T34ETS 

T34ETZ 

T34STM 

T34TMK 

T34SSR 

T34ET: 

T34E0T: 

T34TM* 

T34RWN 

T34RNC 

T34AM3 

T340FL 

T34UO0 

T 34 WOC 

T34VCK 

T348A: 

T34WSS: 

TST34ID: 

i * 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



(XSTO)' 



TMK (XSTO)' 



TSSR Incorrect After Position (SPACE RECORDS) Command' 
WRITE TAPE MARK At EOT Fa I ltd To Set EOT Bit (XSTO)* 
READ Command At EOT Dion' *t Give Normal Termination (TSSR)' 
Unable To Citar EOT Indication, (XSTO) Bit 0* 
REWIND Fiiltd To Set BOT CXSTO) Bit' 

WRITE TAPE MARK At EOT Failed To Sat Tap* Status Alert' 
WRITE DATA At EOT Failed To Set Tape Statue Alert' 
WRITE DATA At EOT Failed To Set EOT Bit (XSTO)' 
SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit 
READ DATA At EOT Failed To Set ECT Bit (XSTO)' 
TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT' 
POSITION Command At EOT Onto Tape Mark Failed To Set 
WRITE Command Not Accepted' 

EOT Not Found In 65000 3.5K Writes, (Uee Shorter Tape)' 
WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
TSSR Not Correct After WRITE Command Reject' 
Rewind (POSITION) Command Not Accepted' 
RAM Error, Correct Data Pattern Not In Ram' 
TSSR Init. Failed After WRITE Command' 
Drive 7 Select Failed To Set "OFL" In TSSR' 
TSSR Not Correct After WRITE DATA Command, SW8 B 

WRITE DATA Command, Check 
VCK In Meeseo* Buffer' 
WRITE DATA Command' 
Command Not Accepted (RAM Read)' 
EOT' 



TSSR Not Correct After 
CVC Set. Didn' ' t Reeet 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
ASCIZ 'Operations At 



t Set' 
For *ap* 



Offline 



iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
I WRITE SUBSYSTEM MEMORY COMMAND 



jSAVE THE REGISTERS 

, START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK 

•ADDRESS OF CMARAISTICS DATA BLOCK 

lEXTENOED ADDRESS 

jSIZE OF DATA BLOCK IN B'TES 

I ADDRESS OF MESSAGE BUFFER 

ILFNGTH OF MESSAGE BUFFER 

iSELECT DRIVE ZERO 

iNUMBER OF LOCATIONS TO BE Cl.EARtU 

,ALL ONES TO MESSAGE BUFFER 

,BUMP DOWN TO NEXT LOCATION 

iR? AT ZERO >ET 

I KEEP GOING UNTIL DONE 

, RE TURN 



T34REST; 




SAVREG 




MOV 


0T34PACKET.R1 


MOV 


0100004, (Rl)» 


MOV 


0T34DATA,(Rl)* 


CLR 


(Rl)» 


MOV 


010. ,(R1)* 


MOV 


0T34BFR,(R1 )> 


CLR 


CRD* 


MOV 


920, ,(Rl)» 


CLR 


(Rl >♦ 


MOV 


00, (Rl) 


MOV 


024. ,R? 


64$: MOV 


0W?/7/ l T346FRtRi>) 


Tsr 


■ ( R.M 


CMP 


R2.00 


BNE 


64 1 


RTS 


PC 



F14 



TEST L - HARDWARE TEST 


1-8 TEST MACRO I 


TEST 6: OPERATIONS AT 


EOT 


4154 






4155 063324 






4156 063324 






4157 063330 


012701 


060650 


4158 063334 


012721 


100006 


4159 063340 


012721 


060676 


4160 063344 


005021 




4161 063346 


012721 


000006 


4162 063352 


012701 


060676 


4163 063356 


005021 




4164 063360 


005021 




4165 063362 


005011 




4166 063364 


000207 




4167 063366 






4168 063366 






4169 063372 


012701 


060660 


4170 063376 


012721 


100005 


4171 063402 


005021 




4172 063404 


005021 




4173 063406 


005011 




4174 063410 


000207 




4175 063412 






063412 






063412 


10440X 




4176 






4177 






4178 






4179 






4180 






4181 






4182 






4183 






4184 






4185 






4186 






4187 






4188 






4189 






4190 






4191 






4192 






4193 






4194 






4195 063414 






063414 






4196 063414 


012737 


006354 002172 


4201 063422 


012700 


073133 


4202 063426 


004737 


016570 


4203 063452 


012737 


000005 002210 


4204 063440 


005037 


067536 


4205 






4206 






4207 






4208 






4209 






4210 






4211 







113 06 


-FEB-84 


18 5 04 


T34RT2: 


SAVREG 






MOV 


OT34PK2.R1 




MOV 


#100006, CRD* 




MOV 


0T34BF2»CR1)» 




CLR 


(Rl)t 




MOV 


#6.,CR1)» 




MOV 


OT34BF2.FU 




CLR 


(fil)» 




CLR 


CRD* 




CLR 


(Ri) 




RTS 


PC 


T34RT3 t 


SAVREG 






MOV 


OT34PK3.R1 




MOV 


0100005.CR1)* 




CLR 


(Rl)* 




CLR 


CRD* 




CLR 


CRD 




RTS 


PC 




ENDTST 





SEQ 174 



jSAVE THE REGISTERS 

i START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK 

, ADDRESS OF DATA BLOCK 

lEXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BHES 

I POINT TO DATA SEL AREA 



{RETURN 

jSAVE THE REGISTERS 
I START OF THE PACKET 
jWRITE TAPE, WITH ACK 
{ADDRESS OF DATA BLOCK 
lEXTENDED ADDRESS 
l SIZE OF DATA BLOCK 
» RETURN 



LI 0061 



.SBTTL TEST 7: EXTENDED MODE FEATURES 



TRAP 



CSETST 



THIS TEST VERIFIES THE OPERATION OF COMMANOS ONLY AVAILABLE WHEN 
THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
ARE: 

REWIND WITH IMMEDIATE INTERRUPT 

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 



THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 



BGNTST 



MOV 


0EPRT1.EPRTSW 


MOV 


OTST35ID.R0 


JSR 


PC.TSTSETUP 


MOV 


G5.L00PCNT 


CLR 


T35CNT 



iPRIMARl ERROR MESSAGE 

lASCII MESSAGE TO IDENTIFY TEST 

jDO INITIAL TEST SETUP 

^PERFORM 5 ITERATIONS 

I CLEAR TAPE RECORD COUNTER 



j TEST 7, SUBTEST 1 



VERIFIES THAT A REWIND UITH IMMFOIATE INTERRUPT COMMAND, ISSUED 
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST 



GJ4 



TEST I - HARDWARE TEST 
TEST 7 S EXTENDED MODE 



4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 



4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 



4233 
4234 
4235 
4239 
4240 



4241 
4242 
4243 
4244 
4245 
4249 
4250 



4251 

4252 

4253 
4254 
4255 



063444 

063444 

063444 

063444 

063446 

063452 

063456 

063462 

063466 

063474 

063500 

063504 

063506 

063506 

063512 

063514 

063520 

063522 

063526 

063530 

063534 

063536 

063542 

063544 

063550 

063552 

063552 

063554 

063556 

0635b0 

063562 

063570 

063574 

063600 

063602 

063606 

063610 

063610 

063612 

063*14 

063616 

063620 

063620 

063622 

063626 

063630 

063632 



1-8 TEST 
FEATURES 



MACRO M1113 06-FEB-84 18:04 



SEQ 175 



104402 
004737 
005037 
004737 
004737 
012737 
005037 
004737 
103426 

012727 
000000 
01372? 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001275 
003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
001276 
005052 
012114 

104406 
004737 
103411 
010004 
016501 



011074 



000002 



IMMEDIATE TERMINATION BUT NO INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS COPM) STATUS BITS ARE BOTH SET. 



T35L00P: 



073164 

002216 

073256 

073320 

176750 067542 

067536 

016054 



000250 
002116 
177772 
177756 
067542 
002214 



10$: 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
CLR 
JSR 
BCS 
DELAY 



002174 067410 

067370 

010742 

002214 



20$ 



25$ 



CKLOOP 



PC»T35REST 

INTRF.CV 

PC, T35RT2 

PC.T35RT3 

065000. , T35DLY 

T35CNT 

PC.SOFINIT 

20$ 

250 



DEC 


T35DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



MOV 


UNITN.T35DSW 


MOV 


0T35PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


25$ 


INC 


FATFLG 


MOV 


R0.R1 


FRRHRD 


ERRNO.WRTMSG.SFIMSG 



JSR 


PC.Rt ND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSRCR5). 



j>!>>>>>>>>>>> 



>>>>>>>> >>>> 



BEGIN SUBTEST 
T7.1: 

TRAP C5BSU0 

{SET COMMAND PACKET 

iCLEAR INTERRUPT RECEIVED f- LAG 

tSET UP OTHER COMMAND PACKET 

{SET UP OTHER COMMAND PACKET 

tSET UP DELAY COUNTER 

{CLEAR COUNTER 

{DO INITIALIZE ON CONTROLLER 

{BR IF INIT WAS OK 

jDELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

{BUMP COUNTER 

I BR, IF COUNTER NOT DONE 
.ERROR COUNT 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 701 

.WORD SFIERR 
.WORD SFIMSG 

j SET UP DRIVE NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 

jISSUE WRITE CHARACTERISTICS 

jBR, IF COMMAND ISSUED OK 
{ERROR COUNT 

j SAVE CONTENTS Of TSSR 

{WRITE CHARACTERISTIC 



♦250. (PC)* 



L IDLY. (PC)* 



-6(PC) 
.-4 

~22(PC) 
,-20 



FAILED 




TRAP 


CSF.RHRO 


.WORD 


702 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



{LOOP IF SELECTED 

TRAP 
jCALL TAPE REWIND COMMAND 
jBR, IF NO PROBLEM 
jSET UP REWIND PACKET ADDRESS 
rGET TSSR FOR PRINTOUT 



C$CI.P1 



H14 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 7 j EXTENDED MODE FEATURES 



06-FEB-84 18:04 



4256 
4260 



4261 

4262 
4263 
4264 
4265 
4266 
4267 
4271 



4272 

4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4295 



4296 

4297 
4298 
4299 
4300 

4301 
4302 
4303 
4304 
4305 
4306 



063636 
063642 
063642 
063644 
063646 
063650 
C63652 
063652 
063654 
063660 
063662 
063666 
063670 
063672 
063676 
063676 
063700 
063702 
063704 
063706 
063706 
063710 
063714 
063722 



063730 

063736 

06374. 

063746 

063752 

063756 

063762 

063764 

063/66 

063772 

063772 

063774 

063776 

064000 

064002 

064002 

064004 

064006 



005237 002214 

104456 
001277 
070644 
012126 



104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001300 
070340 
015554 

104406 
012703 
012737 
013737 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001301 
070266 
012126 

104406 
005303 
001355 



30$ 



INC 
ERRHRD 



CKLOOP 



FATFLG 
ERRN0.T35RWN, PKTSSR 



SEQ 176 






{ERROR COUNT 






REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 




.WORD 


703 




.WORD 


T35RWN 




.WORD 


PKTSSR 


LOOP IF SELECTED 







067420 
000002 

002214 



MOV 


T35BFR*6,R1 


MOV 


R1.R2 


BIS 


*em,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T35B0T,EXPREC 



40$ 



000024 
000400 
003116 



067516 
067512 



CKLOOP 

MOV 
MOV 
MOV 



*20. ,R3 

*256.,T35SZ 

FREE.T35WB 



{PICK UP XSTO 

jSET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

i BR, IF EQUAL (OK) 

, ERROR COUNT 
I TAPE NOT AT BOT AFTER 



I LOOP IF SELECTED 

j NUMBER OF RECORDS 
;SET UP RECORD SIZE 
{ADDRESS OF WRITE BUFFER 



TRAP 



C$CLP1 



REWIND 




TRAP 


CJERHRD 


.WORD 


704 


.WORD 


T35B0T 


.WORD 


EXPREC 



TRAP 



C$CLP1 



;********* ******************* ************ 

IwRITE DATA.ACK.CVC-1 COMMAND 



» ********* ************* ****************** 



140005 
067510 
000000 
016330 
000002 
000200 



002214 



067510 



50$ 



MOV 


$140005, T35PK3 


MOV 


*T35PK3,R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.UAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


60$ 


INC 


FATFLG 



ERRHRD ERRN0,T35WDE, PKTSSR 



60$ 



CKLOOP 

OEC 
BNE 



R3 
50$ 



{WRITE DATA.ACK.CVC'l COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

{WAIT ^OR SSR TO SET 

{GET TSSR CONTENTS 

jSET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF OK 

,ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 705 
.WORD T35WDE 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

,BUMP RECORD COUNTER 

i BR, IF MORE RRECORDS TO COUNT 



Q64010 012737 000012 067542 



j **************************************** 

{WAIT FOR TAPE TO STOP ALL MOTION 

i 

t ********************** ****************** 

MOV <U0.,T35DIY j SET UP DELAY COUNTER 



114 



TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 



4307 



4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4323 



4324 

4325 
4326 
4327 
4328 
4332 
4333 



4334 

4335 
4336 
4337 
4338 
4339 
4340 
4341 
4 342 
4343 
43*4 
4345 
4346 
4347 
4348 
4 349 
4350 
4351 



064016 
064016 
064022 
Oft '1 024 
064030 
064032 
064036 
064040 
064044 
064046 
064052 
064054 
064060 
064062 
064070 
064076 
064102 
064106 
064112 
064114 
064116 
064122 
064122 
064124 
064126 
064130 
064132 
064132 
064134 
064140 
064144 
064146 
064152 
064154 
064154 
064156 
064160 
064162 
064164 
064164 
064166 
064174 



1-8 TEST 
FEATURES 



064200 
064206 
064212 
064216 
064222 
064226 
064230 
064234 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001361 
005737 
001042 
112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
001302 
072422 
012126 

104406 
012704 
004737 
103407 
005237 
010001 

104456 
001303 
005052 
012114 

104406 
012737 
005037 



MACRO M1U3 06-FEB-84 18i04 



012737 
012704 
010465 
016501 
032701 
001021 
005237 



000250 

002116 

177772 

177756 

067542 

002220 

000200 067521 
000010 067520 
067500 
000000 
016416 

002214 



067370 
010742 

002214 



70$ j 



DELAY 250 



DEC 


T35DLY 


BNE 


70$ 


TST 


EXTFEA 


BNE 


1101 


MOVB 


$200,T35BS1 


MOVB 


*10,T35BS0 


MOV 


OT35PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


90$ 


MOV 


R0.R1 


INC 


FATFLG 


ERRHRD 


ERRN0,T35SSR,PKTSSR 



90$: 



CKLOOP 



MOV 


*T35PACKET,R4 


JSR 


PC.WRTCHR 


BCS 


100$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



176750 067542 
067536 



100$ 
110$ 



CKLOOP 

MOV 

CLR 



*65000 
T35CNT 



T35DLY 



SEQ 177 



j WAIT ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

j BUMP COUNTER DOWN 

I BR, IF MORE TO DELAY 

iCHECK FOR EXTENDED FEATURES 

t BR IF SUITCH IS ON 

jWRITE MISCELLANEOUS CONT/READ 

jFUNCTION SELECTION BIT (TURN ON 

jWRITE SUiiS/S MEM PACKET 

j ISSUE CO.tlAND 

} WAIT FOR S5R 

j BR, IF NO ERROR 

jERROR, SAVE TSSR 

; ERROR COUNT 

I TSSR NOT CORRECT AFTER 



4250, (PC)* 



L$DLY,CPC)> 



-6(PC) 

. -4 

-22CPC) 

.-20 



SW SWITCH 



EXTFEA HW SWITCH) 



WRT. MISCELLANEOUS 


TRAP 


C$ERHRD 


.WORD 


706 


.WORD 


T35SSR 


.WORD 


PKTSSR 



»LOOP IF SELECTED 

TRAP 
;SU8R0UTINE NEEDS PACKET ADDRESS 
j ISSUE WRITE CHARACTERISTICS 
jBR, IF COMMAND ISSUED OK 

j ERROR COUNT 
jSAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



C$CLP1 



j SCOPE LOOP 

jSET UP OELA> COUNTER 
jDELAY COUNTER 



TRAP 



C*ERHRD 
70 7 

WRTMSG 
SFIMSG 

C$CLP1 



.A*************************************** 

{REWIND IMED. INTERRUPT , ACK ,CVC*1 , IE"0 COMMAND 
» 

; ********************** ****************** 



142012 067510 

067510 

000000 

000002 

000200 

067536 



120$ 



MOV 


$142012, T55PK3 


MOV 


0T35PK3.R4 


MOV 


R4,TSDB(*5) 


MOV 


TSSR(R5),R1 


BI! 


0SSR,R1 


BNE 


130$ 


INC 


T35CNT 


OELAV 


1 



jREUINO IMFD. INTERRUPT . ACK . CVC* 1 ♦ IE *0 COMMAND 

jSET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

{GET TSSR CONTENTS 

{CHECK FOR SSR SET 

,BR, WHEN SSR IS SET 

iBUMP THE OCLE COUNTtR 

iDELAt TO KEEP COUNTER DOWN 



J 14 



TES1 1 - 


HARDWARE TE ST 


18 TEST 


TEST 7: 


EXTENDED MODE 


FEATURES 




064234 


012727 


000001 




064240 


000000 






064242 


013727 


002116 




064246 


000000 






064250 


005367 


177772 




064254 


001375 






064256 


005367 


177756 




064262 


001367 




4352 


064264 


005337 


067542 


4353 


064270 


001352 




4554 


064272 


012702 


000200 


4355 


064276 


020102 




4356 


064300 


001406 




4357 


064302 


005237 


002214 


4361 


064306 








064 306 


104456 






064310 


001304 






064312 


072770 






064314 


012126 




4362 


064316 








064316 


104406 




4363 


064.320 


005737 


002216 


4364 


064324 


001410 




4365 


064326 


016501 


000002 


4366 


064332 


005237 


002214 


4370 


064336 








064 336 


104456 






064 340 


001305 






064342 


072601 






064 344 


012126 




43/1 


064 346 








064346 


104406 




4372 








4373 








4374 








4375 








4376 








4377 








4378 








4379 


064 350 


013701 


067420 


4380 


064 354 


010102 




4381 


064356 


052702 


000200 


4382 


064 362 


020102 




4383 


064 364 


001406 




4 384 


064 366 


005237 


002214 


4388 


064372 








064372 


104456 






064 374 


001306 






064 376 


072503 






064400 


015554 




4389 


064402 








064402 


104406 




4 390 


064404 


013701 


067424 


4391 


064410 


010102 




4392 


064412 


052702 


100000 


4393 


064416 


020102 




4394 


'J4420 


001406 





MACRO M1113 06-FEB-84 18:04 



130* 



DEC 


T35DLY 


BNE 


1201 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRN0,T35RWE, PKTSSR 



SEQ 176 




MOV 


#1,CPC)» 


.WORD 





MOV 


LIDLY.CPC)* 


.WORD 





DEC 


-6CPC) 


BNE 


.-4 


DEC 


-22CPC) 


BNE 


.-20 


{DROP DEAD TIMER BUMP DOWN 




iBR. IF MORI. TIME TO GO 




iSET UP EXPECTED 




j ARE THEY EQUAL 




j BR, IF OK 




;ERROR COUNT 




jTSSR INCORRECT AFTER WRITE DATA 


TRAP 


CIERHRD 


.WORD 


708 


.WORD 


T35RWE 


.WORD 


PKTSSR 



140$ 



150$ 



CKLOOP 

TST 
BEQ 
MOV 
INC 
ERRHRD 



CKLOOP 



INTRECV 

150* 

TSSR(R5).R1 

FATFLG 

ERRN0.T35INT.PKTSSR 



iLOOP IF SELECTED 

TRAP 

, CHECK FOR INTERRUPTS 

} BR, IF NO INTERRUPTS DETECTED 

;GET TSSR STATUS FOR PRINTOUT 
; ERROR COUNT 

I INTERRUPT RECEIVED CBAQ) 

TRAP 
.WORD 
.WORD 
.WORD 



C$CLP1 



jLOOP IF SELECTED 



TRAP 



CiERHRD 
709 

T35INT 
PKTSSR 

C$CLP1 



**************************************** 
NOW CHECK FOR THE MOTION BITS SET 

********************* 4**********4******* 



MOV 


T35BFR»6,R1 


MOV 


R1.R2 


BIS 


*BIT7,R2 


CMP 


R1,R2 


BEQ 


160$ 


INC 


FATFLG 



160$ 



ERRHRD ERRNO , T35M0T , EXPREC 



CKLOOP 



MOV 


T35BFR»12»R1 


MOV 


R1.R2 


BIS 


06IT15.R2 


CMP 


R1.R2 


BEQ 


170$ 



PICK UP XSTO 

SET UP EXPECTED 

SET MOT BIT IN EXPECTED 

DOES EXP - REC'D 

BR, IF EQUAL (OK) 

i ERROR COUNT 
iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 
iPlCK UP XST2 
jSET UP EXPECTED 
iSET OPM BIT IN EXPECTED 
i DOES EXP • REC'D 
;BR, IF EQUAL (OK) 



CiEKHRD 

710 

T35M0T 
EXPREC 

C$CLP1 



K14 



TEST 1 - HARDWA 


RE TEST 


1-8 TEST MACRO t 


TEST 7; EXTENDED MODE 


FEATURES 


439b 064422 


005237 


002214 


4399 064426 






064426 


104456 




064430 


00130? 




064432 


072672 




064434 


015554 




4400 064436 






064436 


104406 




4401 064440 


012737 


000027 067542 


4402 064446 






064446 


012727 


000250 


064452 


000000 




064454 


013727 


002116 


064460 


000000 




064462 


005367 


177772 


064466 


001375 




064470 


005367 


177756 


064474 


001367 




4403 064476 


005337 


067542 


4404 064502 


001361 




4405 064504 






064504 






064504 


104403 




4406 064506 


023727 


002214 000017 


4407 064514 


103402 




4408 064516 


004737 


C17262 


4409 064522 






4410 






4411 






4412 






4413 






4414 






4415 






4416 






4417 






4418 






4419 






4420 






4421 






4422 






4423 






4424 






4425 






4426 064522 






064522 






064522 


104402 




4427 064524 






064524 


012700 


000000 


064530 


104441 




4428 064532 


004 737 


073164 


4429 064536 


005037 


002216 


4430 064542 


004 737 


073256 


4431 064546 


004737 


073320 


4432 064552 


012737 


176750 067542 


4433 064560 


005037 


067536 


44 34 06*564 


004 737 


016054 


4435 064570 


103426 





06-FEB-84 18:04 



170 



175$ 



INC EATFLG 

ERRHRD ERRNO , T350PM , EXPREC 



CKLOOP 

MOV 023,,T35DLY 
DELAY 250 



SEQ 179 



I ERROR COUNT 
jOPM BIT NOT SET 



999$ 



DEC T35DLY 
BNE 175$ 
ENDSU6 



CMP FATFLG 4 015. 

BLO 999$ 

JSR PC.CKDROP 





TRAP 


CIERHRD 




.WORD 


711 




.WORD 


T 350PM 




.WORD 


EXPREC 


jLOOP IK SELECTED 








TRAP 


C$CLP1 


i SET UP DELAY COUNTER 






iSTART DELAY 








MOV 


0250, (PC)* 




.WORD 







MOV 


L$DLY,CPO* 




.WORD 







DEC 


-6CPC) 




BNE 


. 4 




DEC 


-22CPC) 




BNE 


.-20 


iBUMP DELAY COUNTER 






iBR, IF MORE DELAY 






L 10064: 







TRAP 
j 15 ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



CJESUB 



iTEST 7; SUBTEST 2 



WITH THE INTERRUPT ENABLE (IE) BIT SET CI), CAUSES ALMOST 
IMMEDIATE TERMINATION AND AN INTERRUPT. STATUS IN THE MESSAbF. 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 



10$: 



BGNSUB 
SETPRI 



JSR 
CLR 
JSR 
JSR 
MOV 
CLR 
JSR 
BCS 



>>>>>>•>*>>*> 



GPRIOO 



PC.T35REST 

INTRECV 

PCT35RT2 

PC.T35RT3 

065000. .T35DLY 

T35CNT 

PC.SOFINIT 

20$ 



BEGIN SUBTEST 
T7.2: 

TRAP 
j ENABLE INTERRUPTS. 

MOV 
TRAP 
{SET COMMAND PACKET 
jCLEAR INTERRUPT RECEIVED FLAG 
j SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
>SET UP DELA> COUNTER 
» CLEAR COUNTER 

{ D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 



>******>^*>r» 



C$BSUB 

cPRIOO,RO 
C$SPRI 



L14 



TEST 
TES 



T 1 - HARDWARE TEST 18 TEST MACRO M1113 06-FEB-84 18;04 
T 7: EXTENDED MODE FEATURES 



SEQ 180 



4436 



4437 
4438 
4439 
4443 
4444 



4445 
4446 
4447 
4448 
4449 
4453 
4454 



4455 

4456 
4457 
4458 
4459 
4460 
4464 



4465 

4466 
4467 
4468 
4469 
4470 
44 71 
4475 



4476 
4477 



064572 

064572 

064576 

064600 

064604 

064606 

06461.? 

064614 

064620 

064622 

064626 

064630 

064634 

064636 

064636 

064640 

064642 

064644 

064646 

064654 

064660 

064664 

064666 

064672 

064674 

064674 

064676 

064 700 

064702 

064 704 

064704 

064 706 

064712 

064714 

064 716 

064 722 

064 726 

064 726 

064730 

064 732 

064734 

064736 

064736 

064 740 

064 744 

064746 

064 752 

064 754 

064/56 

064762 

064 762 

064 764 

064 766 

064 7 70 

064 7 72 

064/72 

064774 



012/27 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001310 
003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
001311 
005052 
012114 

104406 
004737 
103411 
010004 
016501 
005237 

104456 
001312 
070644 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001313 
070340 
015554 

104406 
012703 



000250 
002116 
177772 
177756 
067542 
002214 



DELAY 250 



DEC 


T35DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR .SFIMSG 



002174 067410 20$; 

067370 

010742 

002214 



25$; 



011074 



000002 
002214 



30$: 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRO 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



067420 
000002 

002214 



UNITN,T35DSU 

0T35PACKET.R4 

PC,WRTCHR 

25$ 

FATFLG 

R0.R1 

ERRNO.WRTMSG, SFIMSG 



PC, REWIND 

30$ 

R0.R4 

TSSR(R5),R1 

FATFLG 

ERRN0,T3bRWN,PKTSSR 



MOV 


T35BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIU.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFt G 


ERRHRD 


ERRN0.T35B0T.EXPREC 



j DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.UORD 

DEC 

BNE 

DEC 

BNE 

j BUMP COUNTER 

j BR, IF COUNTER NOT DONE 
{ERROR COUNT 

j CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.UORD 
.WORD 

j SET UP DRIVE NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMAND ISSUED OK 
j ERROR COUNT 

{SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 

i CALL TAPE REWIND COMMANO 

{BR, IF NO PROBLEM 

;SET UP REWIND PACKET ADDRESS 

{GET TSSR CONTENTS 

{ ERROR COUNT 

{REWIND NOT ACCEPTED 



{LOOP IF SELECTED 

jPICK UP XSTO 

iSET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

j BR. IF EQUAL (OK) 

{ERROR COUNT 
;TAPE NOT AT BOT AFTER 



4250, (PC)* 



LSDLY.CPO* 



-6CPC) 

. -4 

-22CPC) 

.-20 



C$ERDF 
712 

SFIERR 
SFIMSG 



CIERHRD 

713 

WRTMSG 

SFIMSG 

CSCLP1 



TRAP 


C$ERHRD 


.WORD 


714 


,WCRO 


T35RWN 


.WORD 


PKTSSR 



TRAP 



C5CLP1 



40$; 



000024 



CKLOOP 

MOV 020., A3 



;l.OOP IF SELECTED 
i NUMBER OF RECORDS 



REWIND 
TRAP 
,WORD 

.WORD 
. WORD 

TRAP 



C$ERHRD 
715 

T35B01 
EXPREC 



CSCLPi 



M14 



TEST 1 - HARDWARE. TEST 


^eStuIIs 


MACRO ^ 


TEST 7: EXTENDED MODE 




44 78 065000 


012/37 


000400 


067516 


4479 065006 


013737 


003116 


067512 


4460 








4481 








4482 








4483 








4484 








4485 








4486 








4487 065014 


012737 


140005 


067510 


4468 065022 


012704 


067510 




4489 065026 


010465 


000000 




4490 065032 


004737 


016330 




4491 065036 


016501 


000002 




4492 065042 


012702 


000200 




4493 065046 


020102 






4494 065050 


001406 






4495 065052 


005237 


002214 




4499 065056 








065056 


104456 






065060 


001314 






065062 


070266 






065064 


012126 






4500 065066 








065066 


104406 






4501 








4502 








4503 








4504 








4505 








4506 








4507 








4508 065070 


012737 


000012 


067542 


4509 065076 








065076 


012727 


000250 




065102 


000000 






065104 


013727 


002116 




065110 


000000 






065112 


005367 


177772 




065116 


001375 






065120 


005367 


177756 




065124 


001367 






4510 065126 


005337 


067542 




4511 065132 


001361 






4512 065134 


005737 


002220 




4513 065140 


001042 






4514 065142 


112737 


000200 


067521 


4515 065150 


112737 


C00010 


067520 


4516 065156 


012 704 


067500 




4517 065162 


010465 


000000 




4518 065166 


004737 


016416 




4519 065172 


103407 






4520 065174 


010001 






4521 0651/6 


005237 


002214 




4525 065202 








065202 


104456 






GG52Q4 


001315 







06-FEB-84 18:04 



SEQ 181 



MOV 0256..T35SZ 
MOV FREE.T35WB 



j SET UP RECORD SIZE 
{ADDRESS OF WRITE BUFFER 



.**************************************** 



I 



WRITE DATA.ACK.CVC-1 COMMAND 

**************************************** 



50$ 



MOV 


0140005, T35PK3 


MOV 


0T35PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5D.R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


60$ 


INC 


FATFLG 



60$ 



ERRHRD ERRNO , T35WDE , PKTSSR 



CKLOOP 



{WRITE DATA.ACK.CVC-1 COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

{WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

}BR, IF OK 

{ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 



TRAP 


CSERHRD 


.WORD 


716 


.WORD 


T35WDE 


.WORD 


PKTSSR 



{LOOP IF SELECTED 



TRAP 



CSCLP1 



{ **************************************** 

{WAIT FOR TAPE TO STOP ALL MOTION 

J 

j **************************************** 



MOV $10,,T35DLY 
70$: DELAY 250 



{SET UP DELAY COUNTER 
{WAIT ABOUT ,25 SEC 



0250, C PC)* 


L$DLY.(PO* 


-6fPC) 
.-4 

~22(PC) 
. -20 



DEC 


T350LY 


BNE 


70S 


TST 


EXTFEA 


BNE 


110$ 


MOVB 


O200.T35BS1 


MOVB 


010.T35BS0 


MOV 


OT35PK2.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


90$ 


MOV 


R0.R1 


INC 


FATFLG 



ERRHRD ERRNO. T35SSRiPKTSSR 



MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

{BUMP COUNTER DOWN 
iBR, IF MORE TO DELAY 

{CHECK FOR EXTENOED FEATURES SW SWITCH 
{BR IF SWITCH IS ON 

{WRITE MISCELLANEOUS CONT/READ STATUS 
{FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
{WRITE SUB3YS MEM PACKET 
{ISSUE COMMAND 
jWAIT FOR SSR 
{BR, IF NO ERROR 
jERROR, SAVE TSSR 

{ERROR COUNT 
iTSSR NOT CORRECT AFTER URT. MISCF.L.l ANEOUS 

TRAP C$ERHRD 

.UORU 717 



N14 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 7: EXTENDED MODE FEATURES 



4526 

4527 

4528 
4529 

4530 
4534 
4535 



4536 

4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 



065206 
065210 
065212 
065212 
065214 
065220 
065224 
065226 
065232 
065234 
065234 
065236 
065240 
065242 
065244 
065244 
065246 
065254 



4554 
4555 
4556 
4557 
4558 
4559 
4563 



4564 

4565 

4 566 
4567 



065260 
065266 
065272 
065276 
065302 
065306 
065310 
065314 
065314 
065320 
065322 
065326 
065330 
065334 
065336 
065342 
065344 
065350 
065352 
065356 
065360 
065362 
065366 
065366 
065370 
065372 
065374 
065376 
065376 
065400 
065404 
065406 



072422 
012126 

104406 

012704 067370 

004737 010742 

103407 

005237 002214 

010001 

104456 
001316 
005052 
012114 

104406 

012737 176750 067542 

005037 067536 



90$ j 



06-FEB-84 18:04 



CKLOOP 



MOV 


0T35PACKET,R4 


JSR 


PC.WRTCHR 


BCS 


100$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



100$ 
110$ 



CKLOOP 

MOV 
CLR 



SEQ 182 



.WORD T35SSR 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

j SUBROUTINE NEEDS PACKET ADDRESS 

} ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 
; ERROR COUNT 

{SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



065000., T35DLY 
T35CNT 



j SCOPE LOOP 

{SET UP DELAY COUNTER 
{DELAY COUNTER 



TRAP 



C$ERHRD 

718 

WRTMSG 

SFIMSG 

C$CLP1 



**************************************** 
REWIND IMMEDIATE, ACK.CVC-1 ,IE-1 COMMAND 



**************************************** 



012737 
012704 
010465 
016501 
032701 
001021 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
005237 

104456 

001317 
072770 
012126 

104406 

005737 
001010 
016501 



142212 067510 

067510 

000000 

000002 

000200 

067536 

000001 

002116 

177772 

177756 

067542 

000200 

002214 



120$: 



MOV 


0142212, T35PK3 


MOV 


OT35PK3.R4 


MOV 


R4.TSDBCR5) 


MOV 


TSSRCR5),R1 


BIT 


0SSR.R1 


BNE 


130$ 


INC 


T35CNT 


DELAY 


1 



{REWIND IMMEDIATE, ACK,CVC-1,IE*1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
{ISSUE COMMAND 
{GET TSSR CONTENTS 
{CHECK FOR SSR SET 



BR. WHEN 
BUMP THE 
DELAY TO 



SSR IS SET 



130$ 



140$ 



DEC 
BNE 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



135DLY 

120$ 

0SSR.R2 

R1,R2 

140$ 

FATFLG 

ERRN0.T35RWE, PKTSSR 



002216 

000002 



T'3T 


INTRECV 


8NE 


150$ 


MOV 


TSSRCR5),R1 



CYCLE COUNTER 
KEEP COUNTER DOWN 
MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

{DROP DEAD TIMER BUMP DOWN 
{BR, IF MORE TIME TO GO 
UP EXPECTED 
THEY EQUAL 
IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 
CHECK FOP INTERRUPTS 
BR, IF INTERRUPTS DETECTED 
GET TSSR STATUS FOR PRINTOUT 



(PC) 



01 



L$DLY 



-6CPC) 

. -4 

-22(PC) 

.-20 



(PC) 



SET 
ARE 
BR. 



C$ERHRD 

719 

T35RWE 

PKTSSR 

C$CLP1 



1-3 11. 



TfcSI 1 HARDWARE TtSl 


1 8 TtST 


TEST .': EXlENOED MODE 


FEATURES 


45t>8 065412 


005237 


002214 


4572 065416 






065416 


104456 




0654^0 


001320 




065422 


7 3056 




065424 


012126 




4573 065426 






065426 


104406 




45/4 






4575 






45 ?b 






457; 






4578 






45 79 






4580 






4581 065430 


013701 


067420 


4582 0654 34 


010102 




4583 065436 


052 702 


000200 


4584 065442 


020102 




4585 065444 


001406 




4586 065446 


005237 


002214 


4590 065452 






065452 


104456 




065454 


001321 




065456 


072503 




065460 


015554 




4591 065462 






065462 


104406 




459? 065464 


013701 


06 7424 


4503 065470 


010102 




4594 0654 72 


052 702 


100000 


4595 065476 


020102 




4S96 065500 


001406 




4 59 7 065502 


005237 


002214 


4601 065506 






065506 


104456 




065510 


001322 




065512 


072672 




065514 


015554 




460? 065516 






065516 


104406 




4o03 065520 


012737 


00002 7 


4604 065526 






065526 


012727 


000250 


065532 


000000 




065534 


013727 


002116 


065540 


000000 




065542 


00536 7 


177 7 72 


06 S 546 


001375 




065550 


005367 


177756 


065554 


001367 




4605 065556 


0053 3 7 


067542 


**606 065562 


001361 




4607 065564 






065564 






065564 


104403 




460& 065S&6 


Q^s ! ?^'t 


00iJw'X4 



MACRO M111S 



150$: 



FEB 84 


18:04 


SEQ 105 






INC 


y ATKU 


1 ERROR COUNT 






ERRHRD 


ERRN0.T35NIN.PKTSSR 


I INTERRUPT NOT RECEIVED 


(BAD) 

TRAP 

.UORD 

.WORD 

.WORD 


CIERHRD 
720 

T35NIN 
PKTSSR 


CKLOOP 




lLOOP If SELECTED 


TRAP 


C$CLP1 



NOW CHECK FOR THE MOTION BITS SET 



067542 



175$: 



MOV 


T35BFR*6,R1 


MOV 


R1.R2 


BIS 


•6IT7.R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FMTf'LG 


ERRHRD 


ERRN0.T35M0T.EXPREC 



160$: CKLOOP 



MOV 


T358FR«U\R1 


MOV 


Rl,W2 


BIS 


#eiTl5,R2 


CMP 


Rl.R? 


BEQ 


1701 


INC 


fatfi :; 


ERRHRD 


ERRNO, r350PM 4 EXPRhC 



170$: CKI.OOP 



HOV 
DELAY 



♦*'3. 
^50 



T35DI i 



00004 1 



DK 

HNf 

tND'iUg 



CMP 



T35DLY 
175$ 



FAIFLUiftlU* 



iPICK UP XSTO 

,SET UP EXPF.CfED 

i SET MOT BIT IN EXPECTED 

,DOES EXP - REC'D 

»BR, IE EQUAL (OK) 

i ERROR COUNT 

I TAPE NOT AT BOT AFTER RZWIND 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 

jPICK KP XST2 

»SET UP EXPECTED 

iSET OPM BIT IN EXPECTED 

l DOES EXP - REC D 

iBR. IF EQUAL (OK) 

lERROR COUNT 

,0PM BIT NOT SET 



I LOOP V SEIKTED 

tSM UP DEL At COUNTER 
j START DELAY 



I HUMP DLi At CiX«NT( R 
itf«, IK MORE DEI At 



TRAP 



MOV 

.WORD 

MOV 

.WORD 

DK 

BN* 

DK 

BNE 



i 100f»5: 

TRAP 
US fcRRUR CUUM AI W »S 



C$ERHRD 
721 

T35M0T 
EXPREC 

C$CLPi 



TRAP 


C$ERHRD 


.WORD 


722 


.WORD 


T 350PM 


.WORD 


EXPREC 



C$CLP1 



*250,(PC>* 



i $01 i ,IPC^ 

M PC > 
. 4 

22' -PC) 



CltSUti 



TEST 
TEST 



HARDWARE 
EXTENDED 



CI.' 



1 § T T J fc{?I MACRO M1113 06-FF.fl B4 18j04 



SEQ 184 



4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 

46 1; 

4618 
4619 
4620 
4621 
4622 
4623 
4624 
4605 
4626 
462 7 
4628 
46?9 
4630 
4651 
4632 



4633 
4634 
4M5 
4636 
4637 
4638 
464? 
4643 



4644 
4645 

4646 
464 7 
4648 
4652 
4653 



46 V* 

4655 

46^6 
465/ 
4658 
4659 
46W 



0655/4 
065576 
065602 



10340.? 

004 737 



0L7262 



BLO 
JSR 



065602 
065602 
065602 
065604 
065610 
065614 
065620 
065o2* 
065626 
065632 
065634 
065634 
065636 
065640 
065642 
065644 
065652 
065656 
065662 
065664 
065670 
065672 
065672 
065674 
0656 76 
065 700 
065 702 
065702 
065 704 
065710 
065712 
065714 

065 /;»o 
065/24 



104402 
004737 
0O4737 
004737 
004737 
103407 
005237 
010001 

104455 
001323 
003646 

012114 
013737 
012704 
004737 
103407 
0052 37 
010001 

104456 

001324 
005052 
012114 

104406 
004/3 7 
103411 
010004 
016501 
005237 



9991 



PC.CKDROP 



i BR, 

l TRY 



IF LESS 
TO DROP 



THAN 25 
THE UNIT 



TEST 7, SUBTEST 3 



073164 
073256 
073320 
016054 

002214 



002174 
067370 
010742 

002214 



06/410 20$: 



23ti 



011074 



00000/ 
002214 



VERIFIES THAT THE NON- TAPE -MOT ION COMMAND GET STATUS, ISSUED 
IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 
INTERRUPT COMMAND, TERMINATES PROPERLY ANO PROVIDES PROPER 
STATUS, FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT . 
THEN THE REWINO WITH IMMEDIATE INTERRUPT COMMANO IS ISSUED ANO 
TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUED. 
THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY ANO SHOW 
MOW ANO OPM-1 IN THE MESSAGE BUFFER. AFTER A DELAY LONG 
ENOUGH TO ALLOW THE REWINO TO COMPLETE ANO THE TAPE COME TO 
REST. GET STATUS IS AGAIN ISSUED ANO THE STATUS CHECKED* BOTH 
MOT ANO OPM SHOULD BE CLEAR. 



BGNSUB 



JSR 


PC.TS5REST 


JSR 


PC.T35RT2 


JSR 


PC,T35RT3 


JSR 


PC.SOFINIT 


BCS 


201 


INC 


FATFLG 


MOV 


H0.R1 


ERROF 


ERRNO.SFIERR.SFIMSG 



,>>>>>>>>>>>> BEGIN SUBTEST 

T 7 . 3 : 

TRAP 
I SET COMMrtNO PACKET 
I SET UP Of HER COMMANO PACKET 
I SET UP OTHER COMMANO PACKET 
iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 

lERROR COUNT 
(CONTENTS 0* TSSR REGISTER 
jFATAL ERROR TSSR WA5 NOT OK 



>>*»>-> i»*> 



C*BSUB 



MOV UNITN,T\5DSW 

MOV *T35PACKFT,R4 

JSR PC.WRTCHR 

bCS 251 

INC FATFLG 

MOV R0.R1 



TRAP 


CIERDF 


.WOPD 


723 


.WORD 


SFIERR 


.WORO 


SFIMSG 


PACKET 





j SET UP UNIT NUMBER IN 
SUBROUTINE NEEDS PACKET ADDRESS 
tISSUE WRITE CHARACTERISTICS 
jBR, IF COMMAND ISSUED OK 

jERR"! COUNT 
l SAVE CONTENTS OF TSSR 



F.RRHRD 


ERRNO,WRTMSG 


SFIMSU 


jWRlTE CHARACrt^ISTlSC FAILED 












TRAP 


CSERHRD 










.WORD 


;j4 










.WORD 


WRTMSG 










.WORD 


SFIMSG 


CKl OOP 








it OOP IF SELECTED 

TRAP 


CiCLPl 


JSR 


PC, REWIND 






»CALL TAPE REWINO COMMANO 




BCS 


501 






i BR. IF NO PROBLEM 




MOV 


R0,R4 






1 SI T UP REWIND PACKET ADDRESS 




MOV 


TSSR(R5).R1 






iGl T CONTENTS FOR CAU. 




INC 


KATFi G 






♦ERROR COL^T 




ERRHRQ 


ERRNQ*T55RWN*PiU: 


;sr 


iRtWlNO NQ1 ACCtPTtD 





OIL 



TEST I 

TEST 7 



4664 

4665 
4t>66 

466 7 
4668 
4669 
4670 
4674 



4675 

4676 
46 7 7 
4678 
4679 
4680 
4681 
468? 
4683 
4664 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
469? 
4693 
4694 
4695 
4696 
4/00 



4 701 



hardware: 
extended 



TEST 
MODE 



1 8 TEST 
FEATURES 



065 724 
065726 
065730 
065732 
065734 
065734 
065736 
065742 
065 744 
065750 
065752 
065754 
065760 
065760 
065762 
065764 
065 766 
0657 70 
065770 
065772 
065776 



70? 
703 
704 
705 
70*, 
70 7 
708 
709 
710 



066004 
066012 
066016 
066020 
066024 
066030 
066034 
066040 
066044 
066050 
066052 
066054 
066060 
066060 
066062 
066064 
066066 
0660 70 
066070 



4VXI 



0660 72 
066100 
066 104 



104456 
001325 
70644 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001326 
070340 
015554 

104406 
012703 
013737 



MACRO M1UJ 06 -FEB 84 18:04 



SfcQ 185 



012737 
012704 
010300 
0O4737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001327 
071200 
012126 

104406 



012737 

010465 
004 73 7 



30$: 



CKLOOP 



067420 
000002 

002214 



MOV 


T35BFR»6,R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


401 


INC 


FATFLG 


ERRHRD 


ERRN0.T35BOT.EXPREC 



lLOOP IF SELECTED 

iPICK UP XSTO 

jSET UP EXPECTEO 

jSET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

I BR. IF EQUAL ( OK > 

jERROR COUNT 
I TAPE NOT AT BOT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtEPHRD 
725 

T35RWN 
PK T'.SR 

C$CLP1 



40* : 



000024 
003116 



067512 



CKLOOP 

MOV 
MOV 



l LOOP IF SELECTED 



♦20. ,R3 

FREE.T35W0 



I STARTING 

iSTARTING 



RECORD SIZE 
WRITE BUFFER 



REWIND 
TRAP 
.WORD 
.WORD 
.UORD 

TRAP 
ADDRESS 



CIERHRD 
726 

T35BQT 
EXPREC 

CJCLPl 



****** 



{WRITE DATA.CVC-l.ACK COMMAND 



140005 067510 
067510 

017502 
067516 
000000 
016330 
0O0O02 
000200 



002214 



65*; 



80$: 



MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



$140005, T35PK3 

«T35PKS,R4 

R3.R0 

PC,FILLMEM 

R3.T35S7 

R4,TS0e(R5) 

PC.WAITF 

TSS»(R5),R1 

•SSR.R2 

Rl ,R? 

80$ 

FATf LCi 

ERRN0,T35WDC,PKTSSR 



1WRITE DATA.CVC-l.ACK COMMANO 

I SET UP R4 WITH PACKET ADDRESS 

jSET PATTERN IN CORRECT REGISTER 

I FILL MEMORY WITH RECORD SIZE 

, SET UP RECORD SIZE IN PACKET 

j ISSl£ COMMANO 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

jARE THE* EQUAL 

I BR, IF OK 

t ERROR COUNT 
I TSSR INCORRECT AFTER WRITE DATA 



I LOOP IF SELECTED 



TRAP 


CIERHRD 


.WOHO 


72? 


.UORD 


T35W0C 


.WORD 


PKTSSR 



TRAP 



C$CLPl 



(WRITE DATA Rfc TRY , CVC • 1 , ACK COMMAND 



1* 



14 1005 
000000 
016330 



06 7510 



MOV 


0141005, M5PK3 


MOV 


R4, TSDBCR5) 


JSR 


PC»WAITF 



j WRITE DATA RE TR> , CVC • 1 » ACK COMMANO 

I ISMJt COMMANO 

i WAIT FOR SSR TO SET 



Ell 



^> 



US1 1 HARDWARE Tfc ST 


I 8 TEST 


MACRO M1113 06-FF.B 84 


18:04 


5EQ 186 




TEST 7 i EXTENDED MODE 


FEATURES 












4712 066110 


016501 


000002 




MOV 


TSSR(R5),R1 


»GET TSSR CONTENTS 




4 713 066114 


012702 


000200 




MOV 


0SSR.R2 


(SET UP EXPECTED 




4714 066120 


020102 






CMP 


Rl.RP 


lARE THEY EQUAL 




4715 066122 


001406 






BEU 


90$ 


jBR, IF OK 




4 716 066124 


005237 


002214 




INC 


FATFLG 


j ERROR COUNT 




4 720 066130 








ERRHRD 


ERRNO,T35WRF,PKTSSR 


iTSSR INCORRECT AFT r ~ WRITE DATA RETRY 


066130 


104456 










TRAP 


C$EHHRD 


066132 


001330 










.WORD 


728 


066134 


072245 










.WORD 


T35WRF 


066136 


012126 










.WORD 


PKTSSR 


4721 066140 






90*: 


CKLOOP 




,LOOP IF SELECTED 




066140 


104406 










TRAP 


CSCLP1 


47.12 066142 


005723 






TST 


(R3)» 


jBUMP RECORD SIZE COUNTER 




4 723 066144 


020327 


000052 




CMP 


R3.042. 


jAT 42 SIZE YET 




4V4 066150 


001315 






BNE 


65$ 


,BR> if MORF RECORDS TO WRITE 




472b 066152 


004737 


011074 




JSR 


PC, REWIND 


i CALL TAPE REWINO COMMAND 




4 726 066156 


103411 






BCS 


230$ 


t BR, IF NO PROBLEM 




4/27 066160 


010001 






MOV 


R0.R1 


iSAVt TSSR 




4 728 066162 


016501 


000002 




MOV 


TSSR(R5),R1 


,GET TSSR CONTENTS 




4 729 066166 


005237 


002214 




INC 


FATFLG 


f ERROR C0LA4T 




4733 066172 








ERRHRD 


ERRN0.T3SRWN.EXPREC 


j REWINO NOT ACCEPTED 




066172 


104456 










TRAP 


C$ERHRr 


066174 


001331 










.WORD 


729 


066176 


070644 










.WORD 


T35RWN 


066200 


015554 










.WORD 


EXPREC 


4 734 066202 






230$: 


CKLOOP 




iL.OOP IF SELECTED 




066202 


104406 










TRAP 


C$CLPl 


4 735 066204 


013701 


067420 




MOV 


T358FR»6,R1 


jPICK UP XSTO 




4 736 066210 


010102 






MOV 


R1.R2 


,SET IP EXPECTED 




4 73 7 066212 


052702 


000002 




BIS 


*6IT1 # R2 


j SET BOT BIT IN EXPECTED 




4 738 066216 


020102 






CMP 


R1.R2 


jDOES EXP ■ REC'D 




4 739 066220 


001406 






BEQ 


240$ 


I BR. IF EQUAL (OK) 




4 740 066222 


005237 


002214 




INC 


FATFLG 


I ERROR COL^JT 




4 744 066226 








ERRHRD 


ERRNQ.T35BOT, EXPREC 


sTAPE NOT AT BOT AFTER REWINO 




066226 


104456 










TRAP 


C$ERHRD 


066230 


001332 










.WORD 


730 


066232 


070340 










.WORD 


T35B0T 


066234 


015554 










.WORD 


EXPREC 


4 745 066236 






240$: 


CKLOOP 




(LOOP IF SELECTED 




066c? 56 


104406 










TRAP 


CiCLPl 


4 746 066240 


012703 


000024 




MOV 


020. ,R3 


iSTARTING RECORD SIZE 




4 74 7 066244 


013737 


003116 


067512 


MOV 


FREE, T35RB 


i STARTING READ BUFFER ADDRESS 




4 748 
















4 749 














4 750 
















4 751 

4 752 
4753 

4 754 






jREAD 


DATA.ACK 


COMMAND 




















4 755 066252 


012737 


100001 


067510 265$: 


MOV 


$100001 »T35Pk3 


jREAD DATA.ACK COMMA NO 




4 756 066260 


012 704 


067510 




MOV 


0T35PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




4 75 7 066264 


012700 


17777 7 




MOV 


0177777,90 


jSET PATTERN IN CORRECT REGISTER 


4 75' 0662 70 


004 75 7 


017502 




JSR 


PC .FILL MEM 


|FILL ME MORI WITH RECORD SIZE 




4 75^ 0662 74 


010337 


067516 




MOV 


R3.T35SZ 


iSET UP RECORD SIZE IN PACKET 




4 760 066 30C 


010465 


000000 




MOV 


R4 4 TS0B(R5) 


j ISSUE COMMANO 




4 761 066304 


004 737 


016530 




JSR 


PC.WAITF 


I WAIT FOR SSR TO SET 




4762 066310 


016501 


000002 




MOV 


TSSR(R5),R1 


jGET TSSR CONTENTS 





F15 



TEST 1 - HARDWARE TEST 


1-8 TEST 


TEST 7; EXTENDED MODE 


FEATURES 


4/63 066314 


012702 


000200 


4764 066320 


020102 




4 765 066322 


001406 




4 766 066324 


005237 


002214 


4770 066330 






066330 


104456 




066332 


001333 




066334 


06 7632 




066336 


012126 




4 771 066340 






066340 


104406 




4 7 72 066342 


013702 


003116 


4773 066346 


010304 




4774 066350 


162704 


000024 


4 7 75 066354 


060204 




4 7 76 066356 


021403 




4777 066360 


001410 




4 778 066362 


011401 




4 7 79 066364 


010302 




4 780 066366 


005237 


002214 


4784 066372 






066372 


104456 




066374 


001334 




066376 


072325 




066400 


015554 




4 785 066402 






066402 


104406 




4 786 066404 


005724 




4 78 7 066406 


160204 




4 788 066410 


020403 




4 789 066412 


001360 




4790 066414 


005723 




4791 066416 


02032 7 


000050 


4792 066422 


001313 




4793 066424 






066424 


104406 




4 794 066426 






4795 066426 






066426 






066426 


104403 




4 796 0664 30 


023727 


002214 


4797 066436 


103402 




4 798 066440 


004737 


017262 


4 799 066444 






4800 






4301 






4802 






4803 






4804 






4805 






4806 






480/ 






4808 






480^ 






4810 






4811 






481^ 066444 







MACRO M1113 06-FEB-84 18:04 



MDV 
CMP 
BEQ 
TNC 
ERRHRD 



280$: CKLOOP 



0SSR.R2 
R1.R2 

280$ 

FATFLC 

ERRN0,T35RDF,PKTSSR 



285$: 



MOV 


FREE.R2 


MOV 


R3.R4 


sue 


♦20. ,R4 


ADD 


RR.R4 


CMP 


CR4),R3 


BEG 


290$ 


MOV 


(R4),R1 


MOV 


R3.R2 


INC 


FATFLG 


ERRHRD 


ERRN0,T3bDTA,EXPREC 



290$: CKLOOP 



000017 





TST 


(R4)» 




SUB 


R2.R4 




CMP 


R4.R3 




BNE 


285$ 




TST 


(R3)» 




CMP 


R3.O40. 




BNE 


265$ 


300$: 


CKLOOP 




330$: 


ENDSU6 






CMP 


FATFLG.015. 




BLO 


999$ 




JSR 


PC.CKDROP 


999$: 

j ♦ 






{TEST 


7, SUBTEii 


T 4 



SEQ 187 



I SET UP EXPECTED 
I ARE THEY EQUAL 
i BR, IF CK 

j ERROR COUNT 
iTSSR INCORRECT AFTER 



jLOOP IF SELECTED 



READ DATA 
TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CJERHRD 
731 

T35RDF 
PKTSSR 

CJCLP1 



{GET BUFFER ADDRESS 

{ GET RECORD SIZE 

{POINT BACK TO 1ST RECORD 

{POINT TO 1ST LOC IN BUFFER 

jDATA WRITTEN - READ 

jBR, IF DATA OK (GOOD) 

:PICK UP BAD DATA 

{SET UP EXPECTED 

jERROR COUNT 
{DATA IN BUFFER NOT CORRECT 





TRAP 


CCERHRD 




.WORD 


732 




.WORD 


T35DTA 




.WORD 


EXPREC 


lLOOP IF SELECTED 








TRAP 


C$CLP1 


{BUMP TO NEXT ADDRESS 






{BACK TQ RECORD SIZE 






jAT END Of RECORD YET 






{BR. IF MORE DATA TO 


CHECK 




{BUMP RECORD SIZE 






jDONE YET 






{BR. IF NOT DONE YET 


(MORE READS) 


{LOOP IF SELECTED 


TRAP 


C$CLP1 



!»>>•-<>>>>>>>> END SUBTEST 

L 10066 : 

TRAP 
j IS ERROR COUNT AT 25 
{BR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



>>>>>>>>>*>> 



c$esub 



VERIFIES THAT A TAPE-MOTION COMMAND (READ. WRITE, POSITION). 
ISSUED IMMEDIATATELY AF T^R TERMINATION OF A REWIND WI T M 
iMMFDIATE INTERRUPT COMMAND, IS "QUEUED" BY THE CONTROLLER AND 
THE. J EXECUTES PROPERLY, 



BGNSUC 



j >* > *> ** »*> •>> BEGIN SUBTEST >**> **"* * * ■»* » * 



G15 



TEST I - HARDWARE TEST 


1 8 TEST MACRO t 


TEST 7: EXTENDED MODE i 


FEATURES 


066444 






066444 


104402 




4813 066446 


004737 


073164 


4814 066452 


004 737 


073256 


4815 066456 


004737 


073320 


4816 066462 


012737 


176750 067542 


4817 066470 


004737 


016054 


4818 066474 


103426 




4819 066476 






0664 76 


012727 


000250 


066502 


000000 




066504 


013727 


002116 


066510 


000000 




066512 


005367 


177772 


066516 


001375 




066520 


005367 


177756 


066524 


001367 




4820 066526 


005337 


067542 


4821 066532 


001356 




4822 066534 


005237 


002214 


4826 066540 


010001 




4827 066542 






066542 


104455 




066544 


001335 




066546 


003646 




066550 


012114 




4828 066552 


013737 


002174 067410 


4829 066560 


012704 


067370 


4830 066564 


004 737 


010742 


4831 066570 


103407 




4832 066572 


005237 


002214 


4836 066576 


010001 




4837 066600 






066600 


104456 




066602 


001336 




066604 


005052 




066606 


012114 




4838 066610 






066610 


104406 




4839 066612 


004737 


011074 


4840 066616 


103411 




4841 066620 


016501 


000002 


4842 066624 


010004 




4843 066626 


005237 


002214 


4847 066632 






066632 


104456 




066634 


001337 




066636 


070644 




066640 


012126 




4848 066642 






066642 


104406 




4849 066644 


013701 


067420 


4850 066650 


010102 




4851 066652 


052 702 


000002 


4852 066656 


020102 




4853 066660 


001406 




4854 066662 


005237 


002214 



M1113 06-FEB-84 18:04 



10*: 



JSR 


PC.T35REST 


JSR 


PC,T35RT2 


JSR 


PC.T35RT3 


MOV 


065000. , T35DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T35DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR«SFIMSG 



20$: 



MOV 


UNITN.T35DSW 


MOV 


0T35PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


23$ 


TNC 


FATFLG 


MOV 


R0 % R1 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



23$: 



30$: 



SEQ 188 



T7.4: 

TRAP C$BSUB 

j SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 
i SET UP DELAY COUNTER 
»D0 INITIALIZE ON CONTROLLER 
j BR IF INIT WAS OK 
{DELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

jBUMP COUNTER 
{BR, IF COUNTER NOT DONE 

{ERROR COUNT 
CONTENTS OF" TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 733 
.WORD SFIERR 
.WORD SFIMSG 

{SET UP UNIT (DRIVE) NO«ER 

j SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

,BR, IF COMHANO ISSUED OK 
{ERROR COUNT 

{SAVE CONTENTS OF TSSR 



0250 ( CPC)» 



L$DLf f (PC;» 


-6CPC) 
.4 

22CPC) 
.-20 



ERRHRD 


ERRNO.WRTMSG, 


, SFIMSG 


{WRITE CHARACTERISTIC 


FAILED 
TRAP 
.WORD 
.WORO 
.WORD 


CfERHRD 

734 

WRTMSG 

SFIMSG 


CKLOOP 






{LOOP IF SELECTED 


TRAP 


CSCLPi 


uSR 


PC. REWIND 




j CALL TAPE REWINO COMMAND 




BCS 


30$ 




;BR, IF NO PROBLEM 






MOV 


TSSR(R5),R1 




{GET TSSR CONTENTS 






MOV 


R0.R4 




{GET PACKET ADDRESS 






INC 


FATFLG 




{ERROR C0L*IT 






ERRHRD 


ERRN0.T35RWN; 


, PKTSSR 


5 REWIND NOT ACCEPTED 


TRAP 

.WORD 
.WORD 
.WORD 


CIERHRD 

735 

I35RWN 

PKTSSR 


CKLOOP 






{LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T35BFR*6,R1 




{PICK UP XSTO 






MOV 


Rl.R? 




{SET UP EXPECTED 






BIS 


OB I T 1 . R2 




{St T BOT BIT IN EXPECTED 




CMP 


R1.R2 




iDOES EXP - REC'D 






BEG 


40$ 




j BR, IF EQUAL (OK) 






INC 


FATFLG 




{ERROR COUNT 







H15 



TEST 1 - HARDWARE TEST 


1-6 TEST MACRO 1 
FEATURES 


TEST ,': EXTENDED MODE 


4858 066666 






066666 


104456 




066670 


0C1340 




066672 


070340 




066674 


015554 




4859 066676 






0666 76 


104406 




4860 066 700 


012703 


000024 


4861 066704 


013737 


003116 067512 


4862 






4863 






4864 






4865 






4866 






4867 






4868 






4 869 066 712 


012737 


140005 067510 


4870 066720 


012704 


067510 


4871 066724 


010300 




4872 066726 


004737 


017502 


4873 066732 


010337 


067516 


4874 066736 


010465 


OOOOOO 


487b 066742 


004737 


016330 


4876 066746 


016501 


000002 


4877 066752 


012702 


000200 


4878 066756 


020102 




4879 066760 


001406 




4880 066762 


005237 


002214 


4884 066766 






066766 


104456 




066770 


001341 




066 7 72 


071200 




0667 74 


012126 




4885 0667/6 






066776 


104406 




4836 






4887 






4888 






4889 






4890 






4891 






4892 






4893 067000 


012737 


111005 067510 


4894 067006 


010465 


OOOOOO 


4895 067012 


004737 


016330 


4896 067016 


016501 


000002 


4897 067022 


012702 


000200 


4898 067026 


020102 




4899 067030 


001406 




4900 067032 


005237 


002214 


4904 06 7036 






067036 


10445o 




067040 


001342 




06704? 


072245 




06 7044 


015554 




4905 067046 






067046 


104406 





06-FEB-84 18:04 



ERRHRD ERRN0.T35B0T, EXPREC 



40$: 



CKLOOP 

MOV 
MOV 



020. ,R3 
FREE.T35WB 



SEU 139 



j TAPE NOT AT BOT AFTER REWIND 

TRAP C5ERHRD 
.WORD 736 
.WORD T35B0T 
.WORD EXPREC 

lLOOP IF SELECTED 

TRAP C$CLP1 

{STARTING RECORD SIZE 

j STARTING WRITE BUFFER ADDRESS 



** + ***«**** + 4. + «.**** + *6* + **««******** + * + * 



;WRITE DATA, CVC-1, ACK COMMAND 
t 

65$: 



MOV 


0140005, T35PK3 


MOV 


0T35PK3.R4 


MOV 


R3.R0 


JSR 


PC.FIl.LMEM 


MOV 


R3.T35SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSRCRSD.Rl 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


80$ 


INC 


FATFlG 



80$ 



ERRHRD ERRN0.T35WDC.PKTSSR 



CKLOOP 



iWRITE DATA, CVC-1. ACK COMMAND 

j SET LP R4 WITH PACKET ADDRESS 

{SET PATTERN IN CORRECT REGISTER 

jFILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

j ISSUE COMMANO 

jUAIT FOR SSR TO SET 

jGET TSSR CONTJNVS 

jSET UP EXPECTED 

j ARE THEY EQUAL 

j BR. IF OK 

, ERROR COUNT 
iTSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 



5 LOOP IF SELECTED 



.WORD 
.WOPD 

.WORD 

TRAP 



737 

T35WDC 

PKTSSR 

C*CLP1 



a*************************************** 

WRITE DATA RETRY , ACK , SUB- 1 COMMAND 

* **,**.******* + * + ******************** + **** 



MOV 


0111005. T35PK3 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


90$ 


INC 


FATFLG 



90$: 



ERRHRD ERRNO , T 35WRF .EXPREC 



CKLOOP 



;WRITE DATA RE TRY , ACK , SWB- 1 COMMAND 

i ISSUE COMMAND 

jUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

} ARE THEY EQUAL 

jBR, IF OK 

{ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA RETRi 

TRAP CIERHRD 

.UORD > f l& 

.WORD TSSURfr 

.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C5CLP1 



lib 



TEST 1 HARDWARE TEST 


18 TEST 


TEST /: EXTENDED MODE 


FEATURES 


4906 067050 


005723 




4907 067052 


020327 


000052 


4908 067056 


001315 




4909 067060 


004737 


011074 


4910 C67064 


103411 




4911 067066 


016501 


000002 


4912 067072 


010004 




4913 067074 


005237 


002214 


4917 067100 






06 7100 


104456 




067102 


001343 




067104 


070644 




067106 


012126 




4918 067110 






067110 


104406 




4919 067112 


013701 


067420 


4920 067116 


010102 




4921 067120 


052702 


000002 


4922 067124 


020102 




4923 067126 


001406 




4924 067130 


005237 


002214 


4928 067134 






067134 


104456 




067136 


001344 




067140 


070340 




067142 


015554 




4929 06 7144 






067144 


104406 




4930 067146 


012703 


000024 


4931 067152 


013737 


003116 


4932 






4933 






4934 






4935 






4936 






493/ 






4938 






4939 Ot>7l60 


012737 


100001 


4940 067166 


012704 


067510 


4941 067172 


010337 


067516 


4942 067176 


010465 


000000 


4^43 067202 


004737 


016330 


4944 067206 


016501 


000002 


4945 067212 


012702 


000200 


4946 067216 


020102 




494 7 067220 


001406 




4948 067222 


005237 


002214 


4952 067226 






067226 


104456 




067230 


001345 




067232 


067632 




067234 


012126 




4953 067236 






067236 


104406 




4954 06 7240 


013702 


003116 


4955 067244 


010304 




4956 067246 


162704 


000024 



MACRO M1U3 06-FEB-84 18*04 



TST 


CR3)> 




CMP R3.042, 


BNE 


65$ 


JSR 


PC, REWIND 


BCS 


230$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRD 


ERRN0.T35RWN, PKTSSR 



230$ 



CKLOOP 



SEQ 190 



{BUMP RECORD SIZE COUNTER 

{AT 42 SIZE YET 

iBR, IF MORE RECORDS TO WRITE 

j CALL TAPE REWIND COMMAND 

iBR. IF NO PROBLEM 

{GET TSSR CONTENTS 

iGET PACKET ADDRESS 
I ERROR COUNT 

j REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 


T35BFR*6,R1 


MOV 


P1,R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T35B0T,EXPREC 



jLOOP IF SELECTED 

{PICK UP XSTO 

;SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

{DOES EXP • REC'D 

j BR, IF EQUAL (OK) 

j ERROR COUNT 
;TAPE NOT AT BOT AFTER 



TRAP 



240$ 



067512 



CKLOOP 

MOV 
MOV 



jLOOP IF SELECTED 



020. ,R3 
FREE.T35RB 



{STARTING 
i STARTING 



RECORD SIZE 
READ BUFFER 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 

ADDRESS 



************** 



I READ DATA.ACK COMMAND 

! 



067510 265$; 



2d0$: 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



0100001, T35PK3 

0T35PK3.R4 

R3,T35SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),Rl 

0SSR.R2 

R1.R2 

280$ 

FATFLG 

ERRN0,T35RDF t PKTS$R 



C$ERHRD 

739 

T35RWN 

PKTSSR 

C5CUP1 



C$ERHRD 
740 

T35B0T 
EXPREC 

C$CLP1 



{READ DATA.ACK COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

{WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

{SET UP EXPECTED 

{ ARE THEY EQUAL 

iBR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER READ DATA 

TRAP 



j LOOP IF SELECTED 



,WORO 
.WORD 
.WORD 



TRAP 



MOV 
MOV 

sue 



FREE.R2 
R3.R4 

020.. R4 



iGET BUFFER 
{GET RECORD 
{POINT BACK 



ADDRESS 

SUE 

TO 1ST RECORD 



CJERHRD 
.Ml 

T *5RD> 
PKTSSR 

C$CLP1 



J15 



TEST 1 - HARDWARE. TEST 1-8 TEST MACRO M1113 
TEST 7: EXTENDED MODE FEATURES 



06-FEB 84 18:04 



4957 


067252 


060204 


4958 


067254 


000303 


4959 


067256 


021403 


4960 


067260 


001410 


4961 


067262 


011401 


4962 


067264 


010302 


4963 


067266 


005237 002214 


4967 


067272 






067272 


104456 




067274 


001346 




067276 


072325 




067300 


015554 


4968 


067302 






067302 


104406 


4969 


067304 


005724 


4970 


067306 


160204 


4971 


067310 


000303 


4972 


067312 


020403 


4973 


067314 


001356 


4974 


067316 


005 723 


4975 


067320 


020327 000050 


4976 


367324 


001315 


4977 


067326 






067326 


104406 


4978 


067330 
067330 






067330 


104403 


4979 


067332 


023727 002214 


4980 


067540 


103402 


4981 


067342 


004737 017262 


4982 


067346 




4983 






4984 






4985 






4986 


067346 


004737 016536 


4987 


067352 


103002 


4988 


067354 


000137 063444 


4989 


067360 






067360 


104432 




067362 


003760 


4990 






4991 






4992 






4994 




06 7370 


49% 


067370 




4997 


067370 


100004 


4998 


067372 


067400 


4999 


067374 


000000 


5000 


067376 


000012 


5001 


067400 




5002 


06 7400 


06 7412 


5003 


06 7402 


000000 


5004 


067404 


000024 


5005 


067406 


000000 


5006 


067410 


000000 


500 7 


067412 




5008 







285$; 



ADD 


R2.R4 


SWAB 


R3 


CMP 


(R4),R3 


BEQ 


290$ 


MOV 


(R4),R1 


MOV 


R3,P2 


INC 


FATfLG 


ERRHRD 


£RRN0,T35DTA ( EXPREC 



290$: CKLOOP 



300$: 



TST 


CR4). 


sue 


R2.R4 


SWAB 


R3 


CMP 


R4.R3 


BNE 


285$ 


TST 


CR3)> 


CMP 


R3,*40. 


BNE 


265$ 


CKLOOP 





000017 



999$; 



ENDSU8 



CMP 
BLO 
JSR 



FATFLG, 015 

999$ 

PC.CKDROP 



JSR 


PC.rSTLOOP 


BCC 


163 


JMP 


T35LO0P 


163$: EXIT 


TST 


1 LOCAL STORAGE 


FOR THIS TEST 


.-<. »1C 


»£177770 


T35PACKET; 




.WORD 


100004 


.WORD 


T35DAIA 


.WORD 





.WORD 


10. 


T35DATAj 




.WORD 


T35BFR 


.WORD 





.WORD 


20. 


.WORD 





T55DSW: .WORD 





T35BFR} .BLKW 

; 


25, 



SEQ 191 



j POINT TO 1ST LOC IN BUFFER 

jSWAP BYTES SWB-1 ETC. 

}DATA WRITTEN - READ 

jBR, IF DATA OK (GOOD) 

{PICK UP BAD DATA 

{SET UP EXPECTED 

j ERROR COUNT 

{DATA IN BUFFER NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



{LOOP IF SELECTED 



TRAP 



CJERHRD 
742 

T35DTA 
EXPREC 

C$CLP1 



;BUMP TO NEXT ADDRESS 

{BACK TO RECORD SIZE 

j PUT R3 BACK INTO SHAPE 

j AT END OF RECORD YET 

5 BR, IF MORE DATA TO CHECK 

j BUMP RECORD SIZE 

{DONE YET 

;BR, IF NOT DONE YET (MORE READS) 

{LOOP IF SELECTED 

TRAP C$CLP1 

{ >in>>>>>n> END SUBTEST >>>>>>>>>>>> 

L 10067: 

TRAP C$ESUB 
{IS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 



;D0 WE NEED TO ITERATE TEST 

j BR, IF NO I OOP REQUIRED 

{EXECUTE AGAIN 

lALL DONE THIS TEST 

TRAP CIEXIT 
.WORD L10063 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO. WITH 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS Of MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT ORIVE 
{MESSAGE BUFFER 



ACK 



K15 



TEST L • 
TEST 7: 

5009 

5010 

5012 

5014 

5015 

5016 

5017 

5018 

5019 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

504 7 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 



HARDWARE TEST 1-8 TEST MACRO M1113 
EXTENDED MODE FEATURES 



06 -FEB -84 18:04 



067500 
067500 
067502 
067504 
067506 

067510 
067510 
067512 
067512 
067514 
067516 



067520 
067520 
067521 
067522 
067524 



067526 
067530 
067532 
067534 



067536 
067540 
067542 



067544 
067632 
067701 
067776 
070060 
070130 
070205 
070266 
070340 
070433 
070510 
070567 
070644 
0/0713 
070/66 



067500 

100006 
067520 
000000 
000006 



100005 

003116 
000000 
000000 



010 

200 

000000 

000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



124 
124 
122 
120 
122 
124 
111 
124 
124 
127 
122 
124 
122 
122 
124 



141 
123 
105 
117 
111 
123 
154 
123 
141 
122 
105 
123 
145 
Ifl 
123 



160 
123 

122 
123 
102 
123 
154 
123 
160 
111 
122 
123 
167 
115 
123 



jWRITE SUBSYSTEM MEMORY COMMAND PACKET 
,»<.*10>£177770 



T35PK2* 



.WORD 
.WORD 
.WORD 
.WORD 



100006 

T35BF2 



6. 



T35PK3: 

T35RB: 
T35WB: 

T35SZ: 



J 

T35BF2 
T35BS0 
T35BS1 
T35S2: 
T35S3; 



.WORD 100005 



.WORD 
.WORD 
.WORD 
.EVEN 



BYTE 
BYTE 
WORD 
WORD 



FREE 







10 
200 





.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 



T35RN: 

T35WDR: 

T35C0N-. 



T35CNT 
T35CNU 
T35DI.Y 



.WORD 
.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 



. WORD 
. WORD 
. WORD 



{LOCAL TEXT MESSAGES FOR TEST 



SEQ 192 



I WRITE SUB SYS MEM COMMAND. AND ACK 
i ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COMMAND, AND ACK 
j ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



{BSELO AREA 
{BSEL1 AREA 
jSEL 2 AREA 
{DATA AREA 



{REREAD DATA (NEXT) 
{REREAD DATA RETRY 
{WRITE CONTINOUS 
{END OF DATA 



i TAPE TIMER COUNTER STORAGE AREA 
{TAPE TIMER COUNTER STORAGE AREA 
{DELAY COUNTER 



T35WNG 

T35RDF 

T35RRF 

T35SC: 

T35L0R 

T35WDF 

T35L0Q 

T 35 WOE 

T35B0T 

T35TIM 

T35E0T 

T35TM: 

T35RWN 

T35RNC 

T35AM3 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



Tap* Position Incorrect After REREAD Previous (0PP-1V 

TSSR Incorrect After READ DATA Command' 

REREAD Previous (Space Reverse, Read Forward) Command Failed' 

POSITION (Space Command) Failed, TSSR Not Correct* 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bite, Failed To Set ILC Bit In XSTO' 



TSSR Not Correct After WRITE DATA Command' 
Tape Not At BOT After REWIND Command (BOT Not Set 
WRITE DATA RETRY' 'S Erase Tape Not Long Enough' 
REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
TSSR Not Correct After REREAD COMMAND Reject' 
Rewind (POSITION) Command Not Accepted' 
RAM Error, Correct Data Pattern Not In Ram* 
TSSR Init. F&iled After REREAD COMMAND' 



In XSTO)' 



L15 



TEST 
TEST 



HARDWARE TEST 19 TEST MACRO M1113 
EXTENDED MODE FEATURES 
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SEQ 193 



5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 



071035 
071110 
071200 
071253 
071326 
071401 
071470 
71552 
071634 
071722 
072010 
072106 
072163 
072245 
072325 
072422 
072503 
072601 
072672 
072770 
073056 
073133 



073164 
073164 
073170 
073174 
073200 
073204 
073206 
073212 
073216 
073220 
073224 
073226 
073232 
073236 
073244 
073246 
073252 
073254 

073256 
07 3256 
073262 
073266 

073272 
073276 
073300 
073304 



104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
127 
124 
124 
124 
104 
124 
115 
111 
117 
124 
116 
105 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005 742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 



162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
123 
123 
141 
123 
117 
156 
120 
123 
157 
170 



067370 
100004 
067400 

000012 
067412 

000024 

000000 
000030 
177777 

000000 



067500 
100006 
067520 

000006 



151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
111 
123 
123 
123 
164 
123 
124 
164 
115 
123 
040 
164 



067412 



T350FL 

T35WDD 

T35WDC 

T35VCK 

T35DA; 

T35WSS 

T35L0N 

T35L0P 

T35PBP 

T35TRL 

T35NEF 

T35SCF 

T35TSA 

T35WRF 

T350TA 

T35SSR 

T35H0T 

T35INT 

T350PM 

T35RWE 

T35NIN 

TST35ID 



ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

,ASCIZ 

,ASCIZ 

, ASCIZ 

,ASCIZ 

,ASCIZ 

.EVEN 



Drive 7 Select Failed 
TSSR Not Correct After 
TSSR Not Correct After 
CVC Set, Didn 1 • t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Read! ng Long Record Failed To 
Reading Long Record Foiled To 



To Set 
REREAD 
REREAD 
VCK In 
REREAD 



SWB Bit Set 



'OFL" In TSSR' 
DATA Command, 
DATA Command 1 
Mesanoe Buffer' 
DATA Command' 
Command Not Accepted CRAM Read) 
Set RLL Bit In XSTO' 
Set RLS Bit In XSTO' 



Reel dual Byte Count Incorrect After Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3* 

TSSR Not Correct After SPACE RECORDS Command' 

TSSR Not Correct After WRITE DATA RETRY. Into BOT' 

TSSR Not Correct After WRITE DATA RETRY Command' 

Data Compare Error, Data Read From Tape Not Equal To Written' 

TSSR Incorrect After WRITE MISCELLANEOUS Command' 

MOT Bit (XSTO) Not Set During Rewind (Extended "eatures Mode)' 

Interrupt Received After REWIND Command (it Bix ,>t Set)' 

0PM Bit (XST2) Not Set During Rewind (Extended r t. itures Mode)' 

TSSR Incorrect After Extended Features REWIND Co*wnand' 

No Interrupt Detected After REWIND IMMEDIATE' 

ASCIZ 'Extended Mode Functions' 



; ROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
{WRITE SUBSYSTEM MEMORY COMMAND 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK. 

{ADDRESS OF CHARAISTICS DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 



T35REST 


« 
"SAVREG 






MOV 


0T35PACKET.R1 




MOV 


0100004, (Rl)* 




MOV 


0T35DATA,(R1)> 




CLR 


CRD* 




MOV 


010. ,(R1)» 




MOV 


0T35BFR,(R1)* 




CLR 


CRD* 




MOV 


020 . ,(R1)» 




CLR 


(Rl)» 




MOV 


00. (Rl) 




MOV 


024. ,R2 


64$: 


MOV 


01777/7. T35BFRCR2) 




TST 


( R2 ) 




CMP 


00>R2 




BNE 


64$ 




RTS 


PC 


T35RT2; 


SAVREG 






MOV 


0T35PK2.R1 




MOV 


0100006, CR1 )♦ 




MOV 


0T35BF2,(R1)* 




CLR 


(Rl)* 




MOV 


06. ,(R1)+ 




CLR 


CRD* 



{LENGTH OF MESSAGE BUFFER 



{SELECT DRIVE ZERO 

{NUMBER OF LOCATIONS 

{ALL ONES TO MESSAGE 

jNEXT LOCATION 

{AT END OF LOOP >ET 

{KEEP GOING UNTIL DONE 

{RETURN 



TO BE CLEARED 
BUFFER 



{SAVE THE 

,START OF 
c 



iWRITE sue 



REGISTERS 

THE PACKET 

SYSTEM MEM. WITH ACK, 
{ADDRESS OF DATA BLOCK 
{EXTENDED ADDRESS 
{SIZE OF DATA BLOCK IN BYTES 



M15 



TE! 



t 1 



7 ; mm m kUMi macro Mui3 o6 - feb - 84 i8! ° 4 



5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 



073306 
073312 
073314 
073316 
073320 
073320 
073324 
073330 
073332 
073334 
073336 
073340 
073342 
073342 
073342 



012701 067520 
005021 
005011 
000207 



T35RT3: 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



067510 



5141 

5142 

5143 

5K4 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

51/3 

5174 

5175 

5176 

5177 

51/8 

5179 

5180 

5181 

5182 



MOV 


0T35BF2,R1 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


SAVREG 




MOV 


0T35PK3.R1 


CLR 


CRD* 


CLR 


CR1)* 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


EN0T5T 





SEQ 194 



j POINT TO DATA SEL AREA 



jRETURN 

{SAVE REGISTERS 

{SET UP POINTER ADDRESS 

{COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

,SIZE OF DATA TRANSFER BLOCK 

{RETURN 



L10063j 



.SBTTL TEST 8: RECORD BUFFERING 



TRAP 



C*ETST 



THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANOS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA UORD, IF THE 
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENOED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MOOE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMANO. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED: 

1. THE TAPE IS REWOUND. 

2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 

3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 

4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 

5. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP. THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
OISABLED. 

6. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED, 



Nl 



^ 



TESl 1 - HARDWARE TEST 1 -9 TEST MACRO M1113 
TEST 8: RECORD BUFFERING 



5183 
5184 
5185 
5186 
5187 
5188 
518> 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 

5199 
5200 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 



06-FEB-84 18j04 



SEQ 195 



Q. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 

9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 



THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



073344 
073344 
073344 
073352 
073356 
073362 
073366 
073374 



BGNTST 



012737 
004737 
012700 
004737 
012737 
005037 



006354 002172 

017354 

100717 

016570 

000005 002210 

075726 



MOV 


*EPRT1,EPRTSW 


JSR 


PC.KTOFF 


MOV 


4TST3oID,R0 


JSR 


PC, TSTSETUP 


MOu 


05.LOOPCNT 


CLR 


T36CNT 



T8: : 
PRIMARY ERROR MESSAGE 
turn off KTll 

ASCII MESSAGE TO IDENTIFY TEST 
DO INITIAL TEST SETUP 
PERFORM 5 ITERATIONS 
CLEAR TAPE RECORD COUNTER 



TEST 8, SUBTEST 1 



VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
TERMINATION, WITH THE NON-EXECUTABLE ^UNCTION (NEF) 
ERROR BIT SET. 



5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 



5232 



073400 
073400 
073400 
073400 
073402 
073406 
073412 
073416 
073424 
0734 30 
073434 
073436 
073436 
073442 
073444 
073450 
073452 
073456 
073160 
073464 
073466 



T36L00P: 



104402 
004737 
004737 
004737 
012737 
005037 
004737 
103426 

012727 
000000 
013727 
000000 

005367 
001375 
005367 
001367 
005337 



100740 
101032 
101074 
176750 
0,5726 
016054 



000250 
002116 

177772 
1/7 756 
075732 



075732 



1C*: 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
CLR 
JSR 
BCS 
DELAY 



>>>>*>>>>>>> 



PC.T36REST 

PC.T36RT2 

PC.T36RT3 

$05000. , T36DLY 

T36CNT 

PC.SOFINIT 

20$ 

250 



BEGIN SUBTEST 

T8.1: 

TRAP 
;SET COMMAND PALKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
iSET UP DELAY COUNTER 
; CLEAR COUNTER 

jDO INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
{DELAY ABOUT .25 SEC 



*>>>>•» ,■*-»•»•»> 



C$BSUB 



DEC 



T36DL1 



{BUMP COUNTER 



MOV 


^250,(PC^» 


.WORD 





MOV 


1 SOLI .IPO* 


.WORD 





DEC 


-MPO 


BNE 


. 4 


DEC 


w\\PC) 


BNE 


. -20 



Bib 



TEST 

TEST 



5233 

5234 
5238 
5239 



5240 
5241 
5242 
524 3 
5244 
5248 
5249 



5250 

5251 
5252 
5253 
5254 
5258 



5259 

5260 
5261 
5262 
5263 
5264 
5265 
5269 



52/0 

52/1 
52/2 
52/5 
52 74 
52/5 
52/6 
5280 
32*1 



HARDWARE TEST 1 8 TEST MACRO M1113 
RECORD BUFFERING 



0734 72 

073474 

073500 

073502 

073502 

073504 

073506 

073510 

073512 

073520 

073524 

073530 

073532 

073536 

0/3540 

0/3540 

073542 

0/3544 

073546 

0/3550 

7 3550 

073552 

073556 

073560 

073562 

73566 

073566 

C73570 

073572 

0/35/4 

0/35/6 

073576 

073600 

073604 

073606 

073612 

075614 

073616 

073622 

073622 

0/3624 

07 3626 

073630 

0/56 52 

073652 

0/5654 

075642 

075650 

7 3654 

0/5660 

0/3662 

0/3666 

0/3670 

0/56/0 

7 56 72 

0/V./4 

0736/6 



001356 
005237 
010001 

104455 
001441 
003646 
01.2114 
013737 
012704 
004/37 
10340/ 
00523/ 
C10O01 

104456 
001442 
005052 
012114 

104406 
004737 
103407 
010004 

005237 

104456 
001443 
077141 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001444 
076635 
015554 

104406 

015737 
052737 

012704 
0O4/3/ 
103407 
005237 
01OO01 

104456 
001445 
005052 
012114 



002214 



0021/4 
075560 
010/42 

002214 



75600 20 $: 



FEB 84 


18}04 


GEO 196 


8NE 


10* 


|BR, IF COUNTER NOT DONE 


INC 


FATFLG 


1 ERROR COUNT 


MOV 


R0,R1 


i CONTENTS OF TSSR REGISTER 


ERRDF 


ERRNO.VIERR, SFIMSG 


jFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


MOV 


UNITN, T36DSW 


» SET UP ORIVE NW1BER 



CJERDF 
801 

SFIERR 
SFIMSG 



25$; 



011074 



002214 



30$ s 



075610 
000002 

002214 



40*1 



002174 75600 
000030 075600 
0/5560 
010/42 

002214 



MOV 0T36PACKET.R4 

JSR PC,WRTCHR 

BCS 25$ 

INC FATFLG 

MOV R0 # R1 



I SUBROUTINE NEEDS JACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 
jBR, IF COMMANO ISSUED OK 

I ERROR COUNT 
,SAVE CONTFNTS OF TSSR 



ERRHRD 


ERRNO.WRTMSG, SFIMSG 


, WRITE CHARACTERISTIC 


FAILED 
TRAP 
.WORD 

.uowo 

.WORD 


C$ERHRD 
802 

WRTMSG 
SFIMSG 


CKlOOP 




llOOP IF SELECTED 


TRAP 


C$CLP1 


JSR 


PC, REWINO 


»CALL TAPE REWINO COMMAND 




BCS 


30$ 


iBR, IF NO PROBLEM 






MOV 


R0.R4 


i SET UP REWINO PACKET 


ADDRESS 




INC 


FATFLG 


jERROR COUNT 






ERRHRD 
CKLOOP 


ERRN0.T36RWN, PKTSSR 


, REWINO NOT ACCEPTED 
iLOOP IF SELECTED 


TRA° 
.WORD 
.WORD 
.WORD 


C$ERHRD 
803 

T36MWN 
PKTSSR 



MOV 


T56BFR*6,Rl 


MOV 


R1.P2 


BIS 


•BIT1.R? 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERkN0,T36B0T,EXPREC 



CKLOOP 



|PICK UP XSTO 

iSET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

jDOES EXP • RFC'D 

j BR. IF EQC4L (OK) 

lERROR COUNT 
, TAPE NOT AT BOT AFTER 



I LOOP IF SELECTED 



TRAP 



C5CLP1 



REWINO 




TRAP 


CSERHRD 


.WORD 


804 


.WORD 


T36B0T 


.WORD 


EXPREC 



TRAP 



C$CLP1 



MOV 


UNITN, T36DSW 


BIS 


*6IT3!BIT4,T56DSW 


MOV 


«r36PACKET t R4 


JSR 


PC.WRTCHR 


BCS 


50$ 


INC 


FATFLC 


MOV 


RO.Rl 


ERRHRD 


ERRNQ t WR THbU t SF IMbli 



I SET UP DRIVE NUMBER 

t 25 APR -83 REV B - TURN ON THE BUFFERING 

i SUBROUTINE NEEDS PACKET ADDRESS 

1 ISSUE WRITE CHARACTERISTICS 

i BR, IF COMMAND ISSUED OK 

lERROR COUNT 
j SAVE CONTENTS OF TSSR 
tWJUTE CHARACTUUiTlSC 



FAILED 




TRAP 


CttRHRD 


.WORD 


80 c > 


, WORD 


WRTMs^ 


.WORD 


SFIMSG 



C1.6 



TEST 

TEST 



RECORD BUFFERING 



TEST MACRO M1U3 06-FEB-84 18{04 



SEQ 197 



5282 

5283 

5284 
5285 
5286 

5288 
5289 
5290 
5291 
5292 
5293 
5297 



5298 

5299 
5300 



5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 



5314 
5315 

5316 
5317 
5338 
531* 



073/00 

073700 

073702 

073710 

073716 

073724 

073730 

73 7,34 

073740 

073744 

073750 

073752 

073/54 

073760 

073760 

073762 

073764 

073766 

073770 

073770 

073772 

0740OO 

074000 

074004 

074006 

074012 

074014 

074020 

0/4022 

074026 

074030 

074034 

74036 

074044 

074052 

074056 

074062 

074070 

074074 

074100 

74104 

074106 

074112 

074112 

074116 

074120 

074124 

74126 

0/4132 

0/4 134 

0/4140 

074142 

074146 

074150 

074154 

74156 

074 160 



104406 
012737 
013/37 
012737 
012704 
010465 
004 737 
016501 
012702 
020102 
001406 
005237 

104456 
OC 1446 
005107 
012126 

104406 
012737 

012727 
000000 
013727 
000000 
005 367 
001375 
00536 7 
001367 
005337 
001361 
012737 
012737 
012704 
005037 
012737 
010465 
016501 
032701 
001021 
005237 

012727 
000000 
013727 
OOOOOO 
005367 
001375 
005V> 7 
00136 7 
005337 
001352 
012702 
020102 
001406 
005237 



50*: 



003720 
003116 
140005 
0/5700 
OOOOOO 
016330 
000002 
000200 



002214 



075706 
075702 
075700 



CKLOOP 




,L00P IF SELECTED 








TRAP 


CiCLPl 


MOV 


02000. , T36SZ 


iSET UP RECORD SIZE 




MOV 


FREE.M6WB 


1 ADDRESS OF WRITE BUFFER 




MOV 


0140005, T36PK3 


jWRlTF DATA,ACK,CVC-1 COMMAND 




MOV 


0T36PK3.R4 


iSET LP R4 WITH PACKET ADDRESS 




MOV 


R4,TSDB(R5) 


i ISSUE COMMANO 




JSR 


PC.UAITF 


iWAIT FOR SSR TO SET 




MOV 


TSSR(R5) 4 R1 


jGET TSSR CONTENTS 




MOV 


0SSR.R2 


,SET UP EXPECTED 




CMP 


R1,R2 


,ARE THEY EQUAL 




BF.Q 


60* 


jBR. IF OK 




INC 


FATFLG 


I ERROR COUNT 




ERRHRD 


ERRNO,WRTERR,PKTSSR 


jTSSR INCORRECT AFTER READ DATA 








TRAP 


C$ERHRD 






.WORD 


806 






.WORD 


WRTERR 






.WORD 


PKTSSR 



000005 075732 

000001 

002116 

177772 

177756 

075732 

006642 075706 

140005 075700 

075700 

075726 

001750 075732 

OOOOOO 

000002 

000200 

0757 k ?6 

0000C1 
002116 
1/7772 
1/7756 
075732 
000200 

002214 



60S: 
70$ i 



CKLOOP 

MOV 
DELAY 



80$ s 



0O5, ,T36DLY 
1 



DEC 


T36DLY 


BNE 


70$ 


MOV 


^3490. , T36SZ 


MOV 


0140005, T36PK 3 


MOV 


0T36PK3,R4 


CLR 


T36CNT 


MOV 


01000. . T36DLY 


MOV 


R4.TS06CR5) 


MOV 


TSSR(R5),R1 


BIT 


0SSR,R1 


BNE 


90$ 


:nc 


T36CNT 


DELAY 


1 



90$ 



DFC 


T36DLt 


BNE 


801 


MOV 


0SSR.R2 


CMP 


R1.R2 


BtQ 


100$ 


INC 


FAIKLG 



$ LOOP IF SELECTED 




TRAP 


C$CLP1 


j25 APR-83 REV B - DELAY FOR TAPE TO STOP 


125-APR-83 REV B - DELAY ROUTINE CALL 


MOV 


01, (PC)* 


.WORD 





MOV 


L$DLY,(PO* 


.WORD 





DEC 


-6CPC) 


BNE 


. 4 


DEC 


-22CPC) 


BNE 


. -20 


iBUMP COUNTER DOWN 




iBR, IF MORE DELAY TO GO 




tSET SUE OF TRANSFER 




iWRITE DATA,ACK,CVC-1 COMMAND 




fSET UP R4 WITH PACKET ADDRESS 




iCLEAR COUNTER 




iSET DROP DEAD COLNTER VALUE 




l ISSUE COMMANO 




»GET TSSR CONTENTS 




j CHECK FOR SSR SET 




j BR, IF SSR IS SET 




,BUMP CYCLE COUNTER 




;CUT NUMBER OF LOOPS DOWN 




MOV 


01. (PC)- 


.WORD 





MOV 


LJDL t ,(PC)» 


.WORD 





DEC 


-6(PC^ 


BNE 


. -4 


DEC 


-22. PC) 


BNE 


♦ -2G 


iBUMP DROP OEAD COUNTER 




jBR, IF THERE IS STILL TIME 




iSfcT UP EXPECTED 




iARE THtY EQUAL 




lUR, IF OK 




lERROR COUNT 





I) lb 



TEST 
TEST 



5323 



5324 

5325 
5326 

5327 
5328 

5329 
5330 
5334 
5335 



5356 

5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 



5 348 
5349 
5350 
5351 
5352 
5353 
5357 



5358 

5359 

5 360 
53M 
•J 362 



HARDWARE TEST 1 8 TfcST 
RE-CORD BUFFERING 



MACRO HU13 06 -FEB 84 18}04 



074164 

074164 

074166 

074170 

074172 

074174 

074174 

074176 

074204 

074212 

0/4216 

74222 

074224 

074230 

074232 

074232 

074234 

74236 

074240 

74242 

074242 

74244 

074252 

074260 

074264 

074270 

074276 

074302 

074306 

074312 

074314 

074320 

074320 

74 324 

074 326 

074332 

074334 

74 340 

074342 

074346 

074350 

074354 

074356 

74 362 

^4364 

c '4 366 

074 '72 

074372 

0743/4 

074376 

74400 

07440? 

074402 

74404 

074410 

074414 

74416 



104456 

001447 
076563 
012126 

104406 
013737 
052737 
012704 
004 737 
103407 
005237 
010001 

104456 
001450 
005052 
012114 

104406 

012737 
0!?737 
012704 
005037 
012737 
010465 
016501 
032701 
001021 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012 702 
020102 
001406 
005237 

104456 
001451 
005107 
012126 

104406 
013701 
013702 
020102 
003406 



002174 
000010 
075560 
010742 

002214 



ERRHRD ERRNO, T36WDE.PKTSSR 



100$ j CKL.OOP 



75600 
075600 



MOV 


UNITN.T36DSW 


BIS 


0BIT3, JSbOZU 


MOV 


0T36PACKET.R4 


JSR 


PC.WRTCHR 


9CS 


not 


INC 


FATFLG 


MOV 


R0,R1 


ERRHRD 


ER«N0,WRTM5G,SFIMSG 



006642 75706 

140O05 075700 

075700 

075730 

001750 075732 

OOOOOO 

000002 

000200 

0/5730 

000001 

002116 

177772 
17 7756 
075732 
000200 

002214 



110*; CKLOOP 



MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
BIT 
BNE 
INC 
OELAY 



120*? 



130$; 



140$j 



DEC 
BNE 
MOV 
CMP 
BEU 
INC 
ERRHRD 



CKl OOP 



75 726 
75 7 30 



03490. .T36S7 

0140005, T36PK3 

0T36PK3.R4 

T36CNU 

01000, .T36DLY 

R4.TSDBCR5) 

TSSR(R5),R1 

0SSR,R1 

1301 

T36CNU 

1 



T 3601. if 

120$ 

05SR.R2 

R1.R2 

140$ 

f ATFLG 

ERRNO.WRTERR.PKTSSR 



MOV 


T36CNT.RI 


MOV 


M6CNU.R2 


CMP 


R1.R2 


HLE 


300$ 



SEQ 198 



jTSSR INCORRECT AFTER 



jLOOP IF SELECTED 



READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
807 

T36WDE 
PKTSSR 

CiCLPl 



jSET UP DRIVE NUMBER 

,25-APR-83 REV B - TURN OFF BUFFERING 

j SUBROUTINE NEEDS PACKET ADDRESS 

» ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

I ERROR COUNT 
I SAVE CONTENTS OF TSSR 
, WRITE CHARACTERISTIC 



jLOOP IF SELECTED 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 

808 

WRTMSG 

SFIMSG 

C$CLP1 



jSET SIZE OF TRANSFER 

>WRITE DATA,ACK,CVCU COMMANP 

;SET UP R4 WITH PACKET ADDRESS 

iCLEAR COUNTER 

» SET DROP DEAD COUNTER VALUE 

j ISSUE COMMAND 

sCCT TSSR CONTENTS 

; CHECK FOR SSR SET 

sBR, IF SSR IS SET 

COUNTER 

OF LOOPS 



>BLMP CYCLE 
I CUT NUMBER 



DOWN 
MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

iBUMP DROP DEAD COUNTER 

iBR. IF THERE IS STILL TIME 

I SET UP EXPECTED 

(ARE THE> EQUAL 

j BR, IF OK 

lERROR COUNT 

jTSSR INCORRECT AFTER WRITE DATA 



01, (PC)* 



L5DLY.CPC)* 



-6CP'J) 

. -4 

-22CPC) 

.-20 



I LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
809 

WRTERR 
PKTSSR 

c$clpi 



idf T f IRST COUNTER 

tGET SECOND COUNTER 

u'5 APR -83 REV B COMPARE 

I BR, IF VALUES ARE CORRECT 



EM 
(OIO 



El 6 



TtST 
TEST 



8 



5563 
5367 



5368 
5369 



HARUWARt TEST 1 8 
RECORD BUFFERING 



TEST MACRO M1113 06-FEB-B4 18:04 



53 70 
5371 
5372 
5373 
5374 
53 75 
55/6 

53 7/ 
53/8 
5379 
5380 
5381 
538? 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
539? 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 

54 0? 
5403 
5404 
5405 
5406 
540/ 
5408 
54 09 
5410 
54U 
541? 
5413 
5414 
5415 



0744?0 
74424 
074424 
074426 
074430 
07443? 
074434 
074434 
074436 
074436 
074436 
074440 
074446 
074450 
074454 



005237 0022.14 

104456 
001452 
075/34 
015554 

104-106 



INC FATFLG 

ER3HRD E RRNO ♦ T36NAS , EXPREC 



300$; CKLOOP 
ENDSUB 



SEQ 199 



j TAPE 



jLOOP 



104403 
023727 
103402 
004737 



i ERROR COUNT 




NOT AT CORRECT SPEED 




TRAP 


C$ERHRD 


. WORD 


810 


.WORD 


T36NAS 


.WORD 


EXPREC 


IF SELECTED 




TRAP 


C$CLP1 


1.10071: 




TRAP 


C$ESU8 



002214 000017 
017262 



CMP FATFlG,*l5, 

DLO 999$ 

JSR PC.CKDROP 



999$: 

» 

TEST 8, SUBTEST 2 



j IS ERROR COUNT AT 25 
tBR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 



THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT CGMMANOS, OPERATES PROPERLY ANO IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7196 CONTROLLER MOOULE IS NOT ALREADY IN EXTENOED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MOOE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLEO IN PREVIOUS TESTS OF READ ANO WRITE ANO SO HAS BEEN 
PARTIALLY TESTED ALREADY, THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED j 



1. 
2. 

3. 



THE TAPE IS REWOUND, 

BUFFERING IS DISABLED ANO LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN 0RDE3 TO 
MOVE THE TAPE OFF BOT. 



THE PROGRAM OELAYS FOR A TIME SUFFICIENT 
TAPE TO REPOSITION ANO COME TO REST. 



TO ALLOW THE 



:> 



7. 



A WRITE DATA COMMANO. WITH A BYTE COUNT LESS THAN 3 . 5K , 
IS ISSUED, ANO THE PROGRAM COUNTS. IN A WAIT LOOP. THE 
I IMF IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
SHOULD BE A RELATIVELY LONG TIME SlNCc BUFFERING IS 
DISABLED. 

BUFFERING IS ENABLED. 

THE WRITE OATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
BY IE COUNT AS THAT USED PREVIOUSLY, THE TIME TO 
COMPLETION IS AGAIN MEASURED, 



Fib 



US I 1 HARDWARE fEST 


1 8 TEST MACRO M1113 


06-FEB-84 


18:04 




SEQ 200 




TEST 8: RECORD 


BUFFERING 












5416 




; 












54 1 7 






8 


. THE COMPLETION 


TIMES MEASURED FOR THE NON-BUFFERED AND 


5418 








BUFFERED CASES 


ARE 


COMPARED. IT IS VERIFIED THAT THE 




5419 








TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 


5420 

54? l 

5422 








THAN THAT MEASURED 


FOR THE BUFFERED CASE. 








9 


, THE PREVIOUS STEPS, 


EXCEPT FOR REWINDING AND WRITING 


A 


54? 3 








RECORD OFF B0 T 


ARE 


: REPEATED FOR VARIOUS BYTE COUNTS 


IN 


5424 








THE RANGE 20 THROUGH 3.5K. 




5425 
















5426 
















54 2 7 
















5428 




• - 












5429 074454 






BGNSU6 






j >>>>>>>> >>>> BEGIN SUBTEST >>>>>>>^>>>> 


074454 












T8.2: 




074454 


10440? 










TRAP 


C$BSUB 


5430 074456 


004737 


100740 


JSR 


PC.T36REST 




} SET COMMAND PACKET 




5431 074462 


004737 


101032 


JSR 


PC.T36RT2 




I SET UP OTHER COMMAND PACKET 




5432 074466 


004737 


101074 


JSR 


PC.T36RT3 




j SET UP OTHER COMMAND PACKET 




5433 074472 


012737 


176750 075732 


MOV 


065000. , T36DLY 




j SET UP DELAY COUNTER 




54 34 074500 


005037 


075726 


CLR 


T36CNT 




{CLEAR COUNTER 




5435 074504 


004737 


016054 10$: 


JSR 


PCSOFINIT 




}D0 INITIALIZE ON CONTROLLER 




5436 074510 


103426 




BCS 


201 




iBR IF INIT WAS OK 




5437 074512 






DELAY 


250 




{DELAY ABOUT .25 SEC 




074512 


012727 


000250 








MOV 


*250,CPC>» 


074516 


000000 










.WORD 





74520 


013727 


002116 








MOV 


L$DL^,(PC)* 


074524 


000000 










.WORD 





074526 


005367 


177772 








DEC 


-6CPC) 


074532 


001575 










BNE 


.-4 


074534 


005367 


177756 








DEC 


-22CPC) 


074540 


001367 










BNE 


.-20 


5438 074542 


005337 


075732 


DEC 


T36DLY 




iBUMP COUNTER 




54 39 74546 


001356 




BNE 


10$ 




{BR, IF COUNTER NOT DONE 




5440 074550 


005237 


002214 


INC 


FATFLG 




{ERROR COUNT 




5444 074554 


010001 




MOV 


R0.R1 




{CONTENTS OF TSSR REGISTER 




5445 74556 






ERRDF 


ERRNO.SFIERR.SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 




074556 


104455 










TRAP 


CJFRDF 


074560 


001453 










.WORD 


Oil 


745b2 


003646 










.WORD 


SFIERR 


074564 


012114 










.WORD 


SFIMSG 


5446 074566 


013737 


002174 75600 20 *j 


MOV 


UN1TN.T36DSW 




j SET UP DRIVE NUMBER 




5447 074574 


052737 


000040 075600 


BIS 


0BIT5.T36DSU 




{TURN ON HIGH SPEED 




5448 74602 


012704 


075560 


MOV 


OT36PACKET.R4 




{SUBROUTINE NEEDS PACKET ADDRESS 


5449 074606 


0O4737 


010742 


JSR 


PC.WRTCHR 




{ISSUE WRITE CHARACTERISTICS 




5450 C74612 


103407 




BCS 


25> 




{BR, IF COMMANO ISSUED OK 




5451 074614 


005237 


002214 


INC 


FATFLG 




{ERROR COUNT 




5455 74620 


010001 




MOV 


R0.R1 




{SAVE CONTENTS OF TSSR 




5456 074622 






E.RRHRD 


ERRNO.WRTMSG.SHMSU 


{WRITE CHARACTERISTIC FAILED 




074622 


104^56 










TRAP 


C$ERHRD 


074624 


001454 










.WORD 


812 


074626 


005052 










.WORD 


WRTMSG 


074630 


012114 










.WORD 


SFIMSG 


5457 074632 




25*: 


CKl OOP 






{LOOP IF SELECTED 




74632 


104406 










TRAP 


C$CIP1 


5458 0/46 54 


004 737 


011074 


JSR 


PC, REWIND 




ICAIL TAPE REWIND COMMAND 




5459 074640 


103407 




BCS 


30$ 




{BR, IF NO PROBLEM 





Gib 



4 



EST 
EST 



8: 



5460 

5461 
5465 



5466 

5467 
5468 
5469 
5470 
5471 
5472 
54 76 



5477 

54 78 
54 79 
5480 
5481 
5482 
5483 
5487 
5488 



5489 

5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5504 



5505 



5507 



HARDWARE TEST 18 TEST MACRO M1113 
RECORD BUFFERING 



06-FEB-84 18:04 



074642 

074644 

074650 

074650 

074652 

074654 

074656 

074660 

074660 

074662 

074666 

074670 

074674 

074676 

074 700 

074 704 

074704 

074706 

074710 

074712 

074714 

074714 

074716 

074 724 

074732 

074736 

074742 

074744 

074750 

074752 

074 752 

74 754 

74 756 

074760 

074762 

074 762 

074764 

074772 

075OO0 

075006 

075012 

075016 

075022 

075026 

075032 

75034 

075036 

075042 

075042 

075044 

75046 

075050 

75052 

75052 

75054 

75062 

075062 



010004 
005237 

104456 
001455 
077141 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001456 
076635 
015554 

104406 
013737 
05273/ 
012704 
004737 
103407 
005237 
010001 

104456 
001457 
005052 
012114 

104406 
012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001460 
005107 
012126 

104406 
012737 



002214 



075610 
000002 

002214 



002174 
000030 
075560 
010742 

002214 



30$ 



MOV 
INC 
ERRHRD 



CKLOOP 



R0.R4 

FATFLG 

ERRN0.T36RWN. PKTSSR 



MOV 


T36BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFIG 


ERRHRD 


ERRNO.T36B0T.EXPREC 



40$: 



CKLOOP 



075600 
075600 



MOV 


UNITN.T360SW 


BIS 


$BIT3!BIT4,T36DSW 


MOV 


OT36PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


501 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



50$: 



003720 075706 
003116 075702 
140005 075700 
075700 
000000 
016330 
000002 
000200 



002214 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



02000, , T36SZ 

FREE.T36WB 

$140005. T36PK3 

OT36PK3.R4 

F4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

0SSR.R2 

R1.R2 

60$ 

FATFLG 

ERRNO.WRTERR, PKTSSR 



000005 075732 



012727 000001 



60$: 



'0$: 



CKl OOP 

MOV 005..T36DLY 
DELAY 1 



SEQ 201 



I SET UP 

j REWIND 



REWIND PACKET 
f ERROR COUNT 
NOT ACCEPTED 



{LOOP IF SELECTED 



ADDRESS 



TRAP 

.WORD 
.WORD 
.WORD 



{PICK UP XSTO 

;SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

jDOES EXP - REC'O 

}BR, IF EQUAL (OK) 

} ERROR COUNT 
j TAPE NOT AT BOT AFTER 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
813 

T36RWN 
PKTSSR 

C$CLP1 



REWIND 




TRAP 


C$ERHRD 


.WORD 


814 


.WORD 


T36B0T 


.WORD 


EXPREC 



TRAP 



C$CLP1 



{SET UP DRIVE NUMBER 

; 25 -APR 83 REV B - TURN ON THE BUFFERING 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMANO ISSUED OK 

jERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WHITE CHARACTERISTIC 



{LOOP IF SELECTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


815 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



C$CLP1 



{SET UP RECORD SIZE 

{ADDRESS OF WRITE BUFFER 

{WRITE DATA.ACK.CVC-1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER READ DATA 





TRAP 


C$ERHRD 




.WORD 


816 




.WORD 


WRTERR 




.WORD 


PKTSSR 


Si OOP IF SELECTED 








TRAP 


C$CLP1 


{25 APR 83 REV B - 


DELA> FOR ' 


fAPt TO STOP 


{25-APR-83 REV B - 


DELAY ROUTINE CALL 




MOV 


tfl.CPCW 



Hlb 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST Aj RECORD BUNKERING 
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075066 


000000 






075070 


013727 


002116 




075074 


000000 






C75076 


00536 7 


177/72 




075102 


001375 






075104 


005367 


177756 




075110 


001367 






5506 075112 


005337 


075732 




5509 075116 


001361 






5510 075120 


012737 


006642 


075706 


5511 075126 


012737 


140005 


075700 


5512 075134 


012704 


075700 




5513 075140 


005037 


075726 




5514 075144 


012737 


001750 


075732 


5515 075152 


010465 


OOOOOO 




5516 075156 


016501 


000002 




5517 075162 


032701 


000200 




5518 075166 


001021 






5519 075170 


005237 


075726 




5520 0751/4 








0/5174 


012727 


000001 




075200 


OOOOOO 






075202 


013727 


002116 




075206 


OOOOOO 






075210 


005367 


177772 




075214 


001375 






075216 


005367 


177756 




075222 


001367 






5521 075224 


005337 


075732 




5522 075230 


001352 






5523 075232 


012702 


000200 




5524 075236 


020102 






5525 075240 


001406 






5526 075242 


005237 


002214 




5530 075246 








075246 


104456 






075250 


001461 






075252 


076563 






075254 


012126 






5531 075256 








075256 


104406 






5532 075260 


013737 


002174 


075600 


5533 075266 


052737 


000010 


075600 


5534 075274 


012704 


075560 




5535 075300 


004 737 


010742 




5536 075304 


103407 






5537 075306 


005237 


002214 




5541 075312 


010001 






5542 075314 








075314 


104456 






0/5316 


001462 






075320 


005052 






075322 


012114 






554 3 75324 








075324 


104406 






5544 075326 


012/57 


00b64? 


75/06 


5545 075334 


012737 


140005 


075700 



80$ 



DEC 


T360LY 


BNE 


70$ 


MOV 


03490. , T36SZ 


MOV 


O140OO5,T36PK3 


MOV 


0T36PK3.R4 


CLR 


T36CNT 


MOV 


01000. .T36DLY 


MOV 


R4,TSDB(R5) 


MOV 


TSSR(R5).R1 


BIT 


0SSR.R1 


BNE 


90 i 


INC 


T36CNT 


DELAY 


I 



90$ 



100$ 



CKLOOP 



110$: CKLOOP 

MOV 
MOV 



SEQ 202 



.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBUMP COUNTER DOWN 

jBR, If MORE DELAY TO GO 

I SET SIZE OF TRANSFER 

{WRITE DATA.ACK.CVC-1 COMMAND 

j SET IP R4 WITH PACKET ADDRESS 

i CLEAR COUNTER 

i SET DROP DEAD COUNTER VALUE 

j ISSUE COMMAND 

{GET TSSR CONTENTS 

, CHECK FOR SSR SET 

;BR, IF SSR IS SET 

;BUMP CYCLE COUNTER 





L$DLr,CPC)t 



-6CPC) 

. -4 

-22CPC) 
.-20 



DELAY 


1 


{CUT NUMBER OF LOOPS DOWN 








MOV 


01, (PC). 






.WORD 









MOV 


LJDLY.CPC)* 






.WORD 









DEC 


-6CPC) 






BNE 


. -4 






DEC 


-22CPC) 






BNE 


.-20 


DEC 


T36DLY 


{BUMP DROP DEAD COUNTER 




BNE 


80 f 


{BR, IF THERE IS STILL TIME 




MOV 


0SSR,R2 


;SET LP EXPECTED 




CMP 


R1.R2 


,ARE THEY EQUAL 




BEQ 


100$ 


;BR, IF OK 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0.T36WDE.PKTSSR 


{TSSR INCORRECT AFTER READ DATA 








TRAP 


CIERHRD 






.WORD 


817 






.WORD 


T36WDE 






.WORD 


PKTSSR 



{LOOP IF SELECTED 



TRAP 



C$CLP1 



MOV 


UNITN.T36DSW 


BIS 


08IT3.T36DSW 


MOV 


OT36PACKET,R4 


JSR 


PC.WRTCHR 


BCS 


110$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNQ.WRTMSU.SFIMSG 



{SET UP DRIVE NUMBER 

{25-APR-83 REV B - TURN OFF BUFFERING 

i SUBROUTINE NEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

{ BR, IF COMMAND ISSUED OK 

{ERROR COUNT 
;SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



03490. , T36S/ 
0140005, T36PI<r 



{LOOP IF SELECTED 

{SET SIZE OF TRANSFER 
{WRITE DATA,ACK,CVC-1 



FAILED 
TRAP 
.WORD 

.WORD 
.WORD 

TRAP 
COMMAND 



CJERHRD 
818 

WR T MSG 
SFIMSG 

C$CLP1 



lib 



TEST 
TEST 



a 



5546 
554 7 
5548 
5549 
5550 
5551 
555? 
5553 
5554 



HARDWARE TEST 1-8 
RECORD BUFFERING 



TEST MACRO MU13 



5555 
5556 
5557 
5558 
5559 
5560 
5564 



5565 

5566 
5567 
5568 
5569 
5570 
5574 



5575 
5576 



5577 
5578 
5579 
5580 
5581 
558? 
5583 
5584 
5585 
5586 
556 7 
5588 



075342 

075346 

075352 

075360 

075364 

075370 

075374 

075376 

075402 

075402 

075406 

075410 

075414 

075416 

075422 

075424 

075430 

075432 

075436 

075440 

075444 

075446 

075450 

075454 

075454 

75456 

075460 

075462 

075464 

075464 

075466 

075472 

075476 

075500 

75502 

075506 

75506 

075510 

075512 

075514 

075516 

075516 

075520 

75520 

075520 

75522 

75530 

075532 

075536 



075536 
075542 
075544 
075550 
075550 



012704 
005037 
012737 
010465 
016501 
032701 
001021 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
005237 

104456 
001463 
005107 
012126 

104406 
013701 
013702 
020102 
003406 
005237 

104456 
001464 
075734 
015554 

104406 



104403 
023727 
103402 
004 737 



004 73 7 
103002 
000137 



075700 

075730 

001750 075732 

000000 

000002 

000200 

075730 

000001 

002116 

177772 

177756 

075732 

000200 

002214 



075726 
075730 



002214 



120$: 



06 -FEB -84 


18:04 


MOV 


OT36PK3.R4 


CLR 


T36CNU 


MOV 


01000. , T36DLY 


MOV 


R4.TSDBCR5) 


MOV 


TSSR(R5),R1 


BIT 


OSSR.Rl 


BNE 


130$ 


INC 


T36CNU 


DELAY 


1 



130$: 



DEC 


T36DLY 


jBUM 


BNE 


120$ 


jBR, 


MOV 


4SSR.R2 


;SET 


CMP 


R1.R2 


{ARE 


BEQ 


140$ 


jBP, 


INC 


FATFLG 




ERRHRD 


ERRNO.WRTERR.PKTSSR 


;TSS 



140$: CKLOOP 



MOV 


T36CNT t Rl 


MOV 


T36CNU.R2 


CMP 


R1.R2 


BLE 


300$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T36NAS.EXPREC 



300$: 



002214 000017 
017262 

016536 
073400 



999$ 



163$: 



CKLOOP 
ENDSUB 



CMP 

BLO 
JSR 



JSR 
BCC 
JM° 

EXIT 



FATFLG. dl5 

999$ 

PC.CKDROP 



PC.T5TLO0P 

163$ 

T36L00P 

TST 



SEQ 203 



I SET UP R4 WITH PACKET ADDRESS 

I CLEAR COUNTER 

j SET DROP DEAD COUNTER VALUE 

j ISSUE COMMAND 

jGEi TSSR CONTENTS 

j CHECK FOR SSR SET 

{BR, IF SSR IS SET 

j BUMP CYCLE COUNTER 

j CUT NUMBER OF LOOPS DOWN 

MOV 
.WORD 
MOV 
.UORD 
DEC 
BNE 
DEC 
GNE 
DROP DEAD COUNTER 
IF THfcRE IS STILL TIME 
UP EXPECTED 
THEY EQUAL 
IF OK 

{ERROR COUNT 
INCORRECT AFT£R WRITE DA 

TRAP 
. UIORD 
.WORD 
.WORD 



♦l.CPO* 



L$DLf ,(PO* 



-6CPC) 

.-4 

-22CPC) 

.-20 



TA 



:L00P IF SELECTED 



TRAP 



C$ERHRD 
819 

WRTERR 
PKTSSR 

C$CLP1 



;GET FIRST COUNTER 

j GET SECOND COLNTER 

j 25 -APR -83 REV B - COMPARE EM 

j BR, IF VALUES ARE CORRECT (OK 
iERROR '.OUNT 

{TAPE NOT AT CORRECT SPEED 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



) 



{LOOP IF SELECTED 



L10072: 

TRAP 
{IS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
:TRY TO DROP THE "NI T 



{00 WE NEED TO ITERATE TEST 
{BR. IF NO LOOP REQUIRED 
{EXECUTE AGAIN 

{ALL DONE THIS TEST 



C$ERHRD 
820 

T36NAS 
EXPREC 

CSCLP1 



CSESUB 



Jib 



TEST 1 - 


HARDWARE TLST 1-8 


TEST 8: 


RECORD 


BUFFERING 




075550 


104432 




075552 


003344 


5589 






5590 






5591 






5593 




075560 


5595 


075560 




5596 


075560 


100004 


5597 


075562 


075570 


5593 


075564 


000000 


5599 


075566 


000012 


5600 


075570 




5601 


075570 


075602 


5602 


075572 


000000 


5603 


075574 


000024 


5604 


075576 


000000 


5605 


075600 


000000 


5606 


075602 




5607 






5608 






5609 






5611 




075670 


5613 


075670 




5614 


075670 


100006 


5615 


075672 


075710 


5616 


075674 


000000 


5617 


075676 


000006 


5618 






5622 


75700 




5623 


075700 


100005 


5624 


075702 




5625 


075702 


003116 


5626 


075704 


000000 


562/ 


075706 


000000 


5628 






5629 






5630 






5631 






5632 


075710 




5633 


075/10 


010 


5634 


075711 


200 


5635 


075712 


000000 


5636 


075714 


000000 


5637 






5638 






5639 






5640 






5641 






5642 


075716 


100205 


5643 


075720 


100605 


5644 


0/5/22 


102205 


5645 


075724 


177777 


5646 






564 7 






5648 


075726 


000000 


5649 


075730 


000000 


5650 


075732 


000000 



TEST MACRO M1JL13 06-FEB-84 18:04 



{LOCAL STORAGE FOR THIS TEST 



.-<.*10 


>£177770 


T36PACKET: 




.WORD 


100004 


.WORD 


T36DATA 


.UORD 





.WORD 


10, 


T36DATA! 




.WORD 


T36BFR 


.WORD 





.WORD 


20. 


.WORD 





T36DSW: .WORD 





T36BFR: .BLKW 


25, 


•WRITE SUBSYSTEM MEMORY 



T36PK2: 



<.*10>£177770 





.WORD 


100006 




.WORD 


T36BF2 




.WORD 







.WORD 


6. 


T36PK3: 








.WORD 


100005 


T36RB: 






T36WB! 


.WORD 


FREE 




.WORD 





T36SZ: 


.WORD 
.EVEN 





T36BF2: 






T36BS0; 


.BYTE 


10 


T36BS1; 


.BYTE 


200 


T36S2: 


.WORO 





T36S3: 


.WORD 






.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 



T36RN: 

T36WDR: 

T36C0N; 



T36CNT 
T56LNU 
T36ULY 



.WORD 
.WORD 
.WORD 
. WORD 



100205 
100605 
102205 
177777 



.WORD 
.WORD 
.WORD 



SEQ 204 



TRAP 
.WORD 



C$EXIT 
L10070 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH 

{ADDRE5S OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE 
{MESSAGE BUFFER 



ACK 



-.WRITE Sb3 SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COMMAND, AND ACK 
{ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



BSELO AREA 
BSEL1 AREA 
SEL 2 AREA 
DATA AREA 



{REREAD DATA (NEXT) 
{REREAD DATA RETRY 
jWRITE CONTINOUS 
{END OF DATA 



t TAPE TIMER COUNTER 
j TAPE TIMER COUNTER 
{DELAY COUNTER 



STORAGE 
STORAGE 



AREA 
AREA 



K16 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 8: RECORD BUFFERING 



06-FEB-84 18:04 



SEQ 205 



5651 

5652 

5653 

5654 

5655 

5656 

565? 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

56/5 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

568 7 
5683 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 

569 7 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5/05 
5706 
5707 



075734 
076005 
076073 
076142 
076237 
076321 
076371 
076446 
076527 
076563 
076635 
076730 
077005 
077064 
077141 
077210 
077263 
077332 
077405 
077475 
077550 
077623 
077676 
077765 
10O047 
100131 
10021.7 
100305 
100403 
1OO460 
10O542 
100622 
100717 



100740 
100740 
100744 
100750 
100754 
100760 
100762 
100766 
100 7 72 
100 7 74 
101000 
101002 



111 
124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
127 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
127 
124 
124 
124 
104 
122 



012701 
012721 
012721 
005021 
012721 
C12721 
005021 
012721 
005021 
012711 



155 
141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
122 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
123 
123 
141 
145 



075560 
100004 
075570 

000012 
075602 

000024 

000000 



160 
160 
123 
122 
123 
102 
123 
154 
122 
123 
160 
111 
122 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
111 
123 
123 
123 
164 
143 



jLOCAL TEXT MESSAGES FOR TEST 
I - 



T36NAS 
T36WNG 
T36RDF 
T36RRF 
T36SC: 
T36L0R 
T36WDF 

T36L0Q 
T36SSR 

T 36 woe 

T36B0T 

T36TIM 

T36E0T 

T36TM: 

T36RWN 

T36RNC 

T36AM3 

T360FL 

T36WO0 

T 36 WOC 

T36VCK 

T36BA: 

T36WSS 

T36L0N 

T36L0P 

T36PBP 

T36TRL 

T36NEF 

T36SCF 

T36TSA 

T36WRF 

T36DTA 

TST36I0 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI7 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



Improper Tap* Controller Buffering Speed' 

Tape Position Incorrect After REREAD Previous (0PP-1V 

TSSR Incorrect After READ DATA Command' 

REREAD Previous (Space Reverse, Read Forward) Command Foiled 1 

POSITION (Space Command) Failed, TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA Command' 

Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)' 

WRITE DATA RETRY' 'S Erase Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAD COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After REREAD DATA Command, SWB Bit Set' 

REREAD DATA Command' 

VCK In Message Buffer' 

REREAD DATA Command' 

Command Not Accepted (RAM Read)' 
Failed To Set RLL Bit In XSTO' 
Failed To Set RLS Bit In XSTO' 



TSSR Not Correct After 
CVC Set, Didn' ' t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Rending Long Record 
Reading Lcr*g Record 



Residual Byte Count Incorrect After Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

WRITE DATA RETRY, At First Record, Foiled To Set RIB Bit XST3 

TSSR Not Correct After SPACE RECORDS Command* 

TSSR Not Correct After WRITE DATA RETRY, Into BOT' 

TSSR Not Correct After WRITE DATA RETRY Command* 

Data Compare Error, Data Read From Tope Not Equal To Written' 

ASCIZ 'Record Buffering' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T36REST; 



SAVREG 

MOV *T36PACKET,R1 

MOV 0100004, (Rl)» 

MOV 0T36DATA,(R1)* 

CLR (Rl)* 

MOV *10.,(R1)» 

MOV 0T36BFR,(R1)> 

CLR (Rl)» 

MOV 020,, CRD* 

GR (Rl)» 

MOV 00, CRD 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM, WITH ACK , 

j ADDRESS OF CHARA1STICS DATA BLOCK 

{EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BUES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE ZERO 



L16 



TEST 1. - HARDWARE TEST 1-8 TEST MACRO M1U3 
TEST 8; RECORD BUFFERING 



06-FEB-84 18:04 



5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 



5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 

5752 

5753 
5758 
5759 

5760 
5761 
5762 
5763 
5764 
5765 



101006 
101012 
101020 
101022 
101026 
101030 

101032 
101032 
101036 
101042 
101046 
101052 
101054 
101060 
101062 
101066 
101070 
101072 
101074 
101074 
101100 
101104 
101106 
101110 
101112 
101114 
101116 
101116 
101116 



101120 
101120 
101120 
101126 
101132 
101136 
101142 
101150 



012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



012737 
004737 
012700 
004 737 
012737 
005037 



000030 

177777 075602 

000000 



075670 
100006 
075710 

000006 

075710 



075700 



006354 002172 

017354 

105343 

01657C 

000005 002210 

102406 



MOV 


024. ,R2 


64$: MOV 


0177777, T36BFRCR2) 


TST 


-CR2) 


CMP 


00, R2 


BNE 


64$ 


RTS 


PC 


T36RT2: 




SAVREG 




MOV 


0T36PK2,R1 


MOV 


0100006, CRD* 


MOV 


OT36BF2,CRl)f 


CLR 


CRD* 


MOV 


06., CRD* 


CLR 


CRD* 


MOV 


0T36BF2,R1 


CLR 


(Rl)* 


CLR 


CRD 


RTS 


PC 


T36RT3: 




SAVREG 




MOV 


OT36PK3.R1 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





SEQ 206 



{NUMBER OF LOCATIONS TO BE CLEARF.'j 

j ALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

{AT END OF LOOP YET 

{KEEP GOING UNTIL DONE 

{RETURN 



{SAVE THE REGISTERS 

{START UF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK , 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SI2E OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



{RETURN 

{SAVE REGISTERS 

{SET UP POINTER ADDRESS 

{COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

{RETURN 



L10070: 



TRAP 



C$ETST 



.SBTTL TEST 9: FUNCTION TIMING 



{THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
{RECORDS, GAPS, ANO EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
jANO HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
{SPACE RECORDS COMMAND UITH A RECORD COUNT OF 80 OR MORE, AND A 
;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERA T E THE 
{TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
{REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
{TIMING VARIOUS TAPE-MOTION OPERATIONS. USING A NUMBER OF 
{DIFFERENT TEST RECORD LENGTHS. 



I - 



BGNTST 



MOV 


0EPRT1.EPRTSW 


JSR 


PC, K TOFF 


MOV 


OTST37IU.RO 


JSR 


PC, TST SETUP 


MOV 


05.LOOPCNT 


CLR 


T37CNT 



T 9;; 

{PRIMARY ERROR MESSAGE 

{TURN KT OFF 
iASCII MESSAGE TO IDENTIFY 
{DO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
{CLEAR TAPE RECORD COUNTER 



TEST 



TEST 9, SUBTEST 1 



M16 



TEST 1 - HARDWARE TEST 


1-8 TEST 


MACRO M3 .13 06 


-FEB-S4 


18:04 




SEQ 207 




TEST 9; FUNCTION TIMIN 














5766 


















5767 


















5763 


















5/69 






j - 












5770 


















5771 101154 






T37L0OP 


j 










5772 101154 








BGNSUB 






;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>. >>> 


101154 














T9.1: 




101154 


104402 












TRAP 


C$13: 3 


5773 101156 


005037 


002216 




CLR 


INTRECV 




{INTERRUPT INDICATOR 




5774 101162 


005037 


102406 




CLR 


T37CNT 




{TIMER FOR WRITE DATA SPACING 




5775 101166 


005037 


102410 




CLR 


T37CNU 




j TIMER FOR WRITE DATA RETRY SPACING 


5776 101172 


004737 


105364 




JSR 


PC.T37REST 




j SET COMMAND PACKET 




5777 101176 


004737 


105456 




JSR 


PC.T37RT2 




;SET UP OTHER COMMAND PACKET 




5778 101202 


004737 


105520 




JSR 


PC.T37RT3 




{SET UP OTHER COMMAND PACKET 




5779 101206 


012737 


176750 


102412 


MOV 


465000. .T37DLY 


{SET UP DELAY COUNTER 




5780 101214 


004737 


016054 


10$: 


JSR 


PC.SOFINIT 




;D0 INITIALIZE ON CONTROLLER 




5781 101220 


103426 






BCS 


20$ 




j BR IE INIT WAS OK 




5782 101222 








DELAY 


250 




{DELAY ABOUT ,25 SEC 




101222 


012727 


000250 










MOV 


$250, CPC)* 


101226 


000000 












.WORD 





101230 


013727 


002116 










MOV 


L$DLY,CPC) 


101234 


000000 












.WORD 





101236 


005367 


177772 










DEC 


-6CPO 


101242 


001375 












BNE 


. -4 


101244 


005367 


177756 










DEC 


-22CPC) 


101250 


001367 












BNE 


,-20 


5783 101252 


005337 


102412 




DEC 


T37DLY 




iBUMP COUNTER 




5784 10125G 


001356 






BNE 


10$ 




{BR. IF COUNTER NOT DONE 




5785 101260 


005237 


002214 




INC 


FATFLG 




jERROR COUNT 




5789 101264 


010001 






MOV 


R0.R1 




{CONTENTS OF TSSR REGISTER 




5790 101266 








ERRDF 


ERRN0,SFIERR, 


SFIMSG 


{FATAL ERROR TSSR WAS NUT OK 




101266 


104455 












TRAP 


C$ERDF 


101270 


001605 












.WORD 


901 


101272 


003646 












.WORD 


SFIERR 


10127A 


012114 












.WORD 


SFIMSG 


5791 101276 

5792 

5793 101304 


013737 


002174 


102260 20$: 


MOV 


UNITN.T37DSW 




{SET UP UNIT NUMBER 




012704 


102240 




MOV 


O137PACKET.R0 




{SUBROUTINE NEEDS PACKET ADDRESS 


5794 101310 


004 73 7 


010742 




JSR 


PC.WRTCHR 




{ISSUE WRITE CHARACTERISTICS 




5795 101314 


103407 






BCS 


23$ 




:BR, IF COMMAND ISSUED OK 




5796 101316 


005237 


0022x4 




INC 


FATFLG 




{ERROR COUNT 




5800 101322 


010001 






MOV 


R0.R1 




{SAVE CONTENTS OF TSSR 




5801 101324 








ERRHRD 


EARNO.WRTMSG, 


SriMSG 


{WRITE CHARACTERISTIC FAILED 




101324 


104456 












TRAP 


C$ERHRD 


101326 


001606 












.WORD 


90? 


101330 


005052 












.WORD 


WRTMSG 


101332 


012114 












.WORD 


SFIMSG 


580? 101334 






23$: 


CKLOOP 






{LOOP IF SELECTED 




101334 


104406 












TRAP 


C$CLP1 


5803 101336 


004 737 


011074 




JSR 


PC, REWIND 




{CALL TAPE REWINP COMMAND 




5804 101342 


103411 






BCS 


30$ 




i BR, IF NO PROBLEM 




5605 101344 


016501 


000002 




MOV 


TSSR(R5),R1 




{GET TSSR CONTENTS 




5806 101350 


010004 






MOV 


R0.R4 




{GET PACKET ADDRESS 




5807 101352 


005237 


002214 




INC 


FPTFLG 




{ERROR COUNT 




5811 101356 








ERRHRD 


ERRN0.T37RWN 


PKTSSR 


{REWIND NOT ACCEPTED 




101356 


104456 












TRAP 


C$ERHRO 



PROGRAM HEADER 
DISPATCH TABLE 
DEFAULT HARDWARE P-T 
SOFTWARE P-TABLE 
SOFTWARE P-TABLE 
GLOBAL EQUATES SECTI 
MEMORY MANAGEMENT DE 
MEMORY MANAGEMENT DE 
TSV05 REGISTER AND P 
TSV05 REGISTER AND P 



TSV05 REGISTER AND P, 
TSV05 REGISTER AND P 
TSV05 REGISTER AND P 
TSV05 REGISTER AND P 
SPECIAL MACROS AND 
GLOBAL DATA SECTION 
TSTBLK - TEST DATA 
GLOBAL ENVIRONMENT S 
GLOBAL TEXT MESSAGES 
GLOBAL TEXT MESSAGES 
GLOBAL ERROR REPORT 
PRITSSR - PRINT TSSR 
PRITSSR - PRINT TSSR 



PRITSSR 

PRIPKT 

PRIXOR 

PRIRAM 

PRITADD 

SPACE 

SPACE 

WRTCHR 

REUINO 

CKRAM 

CKRAM2 

CKMSG 

CKMSG2 



PRINT 1SSU. 
PRINT THE 

PRINT EXPD, 
PRINT RAM 
PRINT MEMO 
SPACE RECO 
SPACE RECO 
WRITE CHAR 
POSITION T 
COMPARE RA 
COMPARE RA 
COMPARE WR 
COMPARE EX 



Bl 

81 

El 
Fl 
Gl 

HI 
II 
Jl 
Kl 
LI 
Ml 
Nl 



B2 
C2 
D2 
E2 
F2 
G2 
H2 
12 
J2 
K2 
L2 
M2 
N2 



B3 

C3 

D3 

E3 

F3 

G3 

H3 

13 

J3 

,K3 

,L3 

,M3 

.N3 



H4 
C4 
D4 
E4 
M 
G4 
H4 
14 
J4 
K4 
L4 
,M4 
,N4 



CKMSG2 


- COMPARE EX. , 


. .B5 


PKTMES 


- PRINT TSSR. 


. .C5 


FIFEXP 


- PRINT FIFO. 


. .05 


MSGSTAT 


- PRINT STAT. 


. ,E5 


MSGSUB - 


PRINT WRITE. 


,.F5 


PRAMPKT 


- PRINT RAM . 


. .G5 


PRMESS 


- PRINT CONT. 


, ,H5 


PRMSGEXP 


- PRINT EXP. 


. .15 


PRBYTEXP 


- PRINT ERR. 


, .J5 


PRBYTEXP 


- PRINT ERR. 


. J<5 


RAMERR 


- PRINT RAM . 


. .L5 


RAMEXP 


- PRINT RAM . 


. .M5 


BADSSR - 


PRINT TSSR . 


. .N5 


CHKAM8 


- CHECK TSSR. 


. .B6 


ENAINT,DSBINT - ENAB. 


. . .C6 


WAITF 


- WAIT FOR S, 


. .06 


XNXM 


- CHTXK FOR . 


. . .E6 


TSTSETUP 


- PRINT TES. 


. ,.F6 


TSTSETUP 


- PRINT TES. 


. . .G6 


INCERK 


- INCREMENT . 


. ..H6 


KTON.KTOFF - EN, 


. . .16 


FILLMEM 


- FILL MEMOR. 


. . .J6 


CMPMEM 


- COMPARE ME. 


, ,.K6 


CMPMEM 


- COMPARE ME. 


. . .L6 


GETPAT 


- GET 8 BIT . 


. . .M6 


GETSEL 


- ISSUE MENU. 


. ..N6 


CHKMAN 


- CHECK MANU. 


...B7 


ENVIRN 


- SETUP FREE. 


. ,,C7 


KTINIT 


- SETUP KT11. 


, . .07 


KTINIT 


- SETUP KT11. 


. . .E7 


KTINIT 


- SETUP KT11. 


. . .F7 


PROTECTION TABLE 


. ..G7 


INITIALIZE SECTION . 


. . ,H7 


INITIALIZE SECTION . 


. . .17 


INITIALIZE SECTION . 


. . .J7 


ADD AND 


DROP LNITS S, 


. . .K7 


ADD AND 


DROP UNITS S. 


. . .L7 


CLEAN-UP AND REPORT 


. . .M7 


CLEAN-UP AND REPORT . 


. ..N7 


CLEAN-UP ANO REPORT . 


. ,.B8 


TEST 1: 


WRITE TAPE . 


. . ,C8 


TEST 1; 


WRITE TAPE . 


. . .D8 


TEST 1. 


WRITE TAPE . 


. . .E8 


TEST 1 


WRITE TAPE . 


. . .KB 


TEST 1 


WRITE TAPE . 


. . .G8 


TEST 1 


WRITE TAPE . 


. . ,H8 


TEST 1 


WRITE TAPE . 


. . .16 


TEST I 


WRITE TAPE . 


. . .J8 


1EST 1 


WRITE TAPE . 


. . .Kd 


TEST 1 


WRITE TAPE . 


. . .L8 


TEST 1 


WRITE TAPE . 


. . .MB 


TEST 1 


WRITE TAPE . 


. . »NS 



TEST 


1: 


WRITE 


TAPE 




. ,B9 


TEST 


1j 


WRITE 


TAPE 




. ,C9 


TEST 


2: 


SKIP 


TAPE 


M. . 


..09 


TEST 


2: 


SKIP 


TAPE 


M. . 


. ,E9 


TEST 


2: 


SKIP 


TAPE 


M. , 


. .F9 


TEST 


2 


SKIP 


TAPE 


M.. 


. .G9 


TEST 


2: 


SKIP 


TAPE 


M. . 


. ,H9 


TEST 


2: 


SKIP 


TAPE 


M. . 


. .19 


TEST 


2: 


SKIP 


TAPE 


M. . 


. ,J9 


TEST 


2: 


SKIP 


TAPE 


M. , 


. ,K9 


TEST 


2: 


SKIP 


TAPE 


M. . 


..L9 


TEST 


2: 


SKIP 


TAPE 


M. . 


. .M9 


TEST 


2: 


SKIP 


TAPE 


M.. 


,.N9 


TEST 


2: 


SKIP 


TAPE 


M.. 


, .BIO 


TEST 


2: 


SKIP 


TAPE 


M.. 


. .CIO 


TEST 


2: 


SKIP 


TAPE 


M. . 


. .010 


TEST 


2: 


SKIP 


TAPE 


M. , 


. ,E10 


TEST 


2: 


SKIP 


TAPE 


M. . 


,.F10 


TEST 


2: 


SKIP 


TAPE 


M. . 


. .G10 


TEST 


2: 


SKIP 


TAPE 


M.. 


. .H10 


TEST 


2: 


SKIP 


TAPE 


M. . 


, .110 


TEST 


2: 


SKIP 


TAPE 


M. . 


. ,J10 


TEST 


2; 


SKIP 


TAPE 


M.. 


. .10.0 


TEST 


2: 


SKIP 


TAPE 


M.. 


..L10 


TEST 


2; 


SKIP 


TAPE 


M. . 


. .M10 


TEST 


2: 


SKIP 


TAPE 


M.. 


. .N10 


TEST 


3: 


NO-OP 


C "CLE . . 


..Bll 


TEST 


3: 


NO-OP 


( "CLE . . 


..Cll 


T£ST 


3; 


NO-OP 


C"CL 


.c . . 


. ,D11 


TEST 


3: 


NO-OP 


C "CLE , . 


■ ,F11 


TEST 


3: 

3: 


NO-OP 
NO-OP 


C "CI 
C "CI 


X- 


Fll 


TEST 


-E.. 


. .Gil 


TEST 


3: 


NO-OP 


("CLE. . 


..Hll 


TEST 


3: 


NO-OP 


("CLE,. 


. .Ill 


TEST 


3: 


NO-OP 


("CLE, , 


. ,J11 


TEST 


4: 


ERASE 


AND 


0. . 


. .Kll 


TEST 


4: 


ERASE 


AND 


0, . 


. ,L11 


TEST 


4: 


ERASE 


AND 


0. . 


. .Mil 


TEST 


4: 


ERASE 


AND 


0., 


..Nil 


TEST 


4: 


ERASE 


AND 


0., 


,.b:.2 


TEST 


4: 


ERASE 


AND 


0.. 


. .C12 


TEST 


4: 


ERASE 


AND 


0.. 


. .012 


TEST 


4: 


ERASE 


AND 


0, . 


. .E12 


TEST 


4: 


ERASE 


AND 


0.. 


. .Fi2 


TEST 


4: 


ERASE 


AND 


0.. 


. .G12 


TEST 


4: 


ERASE 


ANO 


0. , 


, ,H12 


TEST 


4: 


ERASE 


AND 


0,. 


. .112 


TEST 


4: 


ERASE 


. AND 


0.. 


. .J12 


TEST 


5; 


DATA 


PARITY, , 


. ,K12 


TEST 


5: 


DATA 


PARITY. . 


. ,L12 


TEST 


5: 


DATA 


PARITY. . 


. .Ml? 


TEST 


5; 


DATA 


PARITY. . 


..N12 



TEST 


5: 


DATA PARITY. 


. .B13 


TEST 


5: 


DATA PARITY. 


..C13 


TEST 


5: 


DATA PARITY. 


. .D13 


TEST 


5: 


DATA PARITY. 


. ,E13 


TEST 


5: 


DATA PARITY. 


..F13 


TEST 


6: 


OPERATIONS . 


..G13 


TEST 


6: 


OPERATIONS . 


..H13 


TEST 


6: 


OPERATIONS . 


..113 


TEST 


6j 


OPERATIONS . 


. .J13 


TF.ST 


6; 


OPERATIONS . 


..K13 


TEST 


6: 


OPERATIONS . 


..L13 


TEST 


6: 


OPERATIONS . 


. .M13 


TEST 


6: 


OPERATIONS . 


..N13 


TEST 


6: 


OPERATIONS . 


..B14 


TEST 


6: 


OPERATIONS . 


. .C14 


TEST 


6; 


OPERATIONS . 


. .014 


TEST 


6: 


OPERATIONS . 


. .E14 


TEST 


6: 


OPERATIONS . 


..F14 


TEST 


7: 


EXTENDED 


MO. 


. .G14 


TEST 


7: 


EXTENDED 


MO. 


. .H14 


TEST 


7 : 


EXTENDED 


MO. 


..114 


TEST 


7; 


EXTENDED 


MO. 


..J14 


TEST 


7: 


EXTENDED 


MO. 


. .K14 


TEST 


7: 


EXTENDED 


MO. 


..L14 


TEST 


7: 


EXTENDED 


MO. 


. .M14 


TEST 


7: 


EXTENDED 


MO. 


. . .N14 


TEST 


7: 


EXTENDED 


MO. 


. .B15 


TEST 


7: 


EXTENDED 


MO. 


. . .C15 


TEST 


7: 


EXTENDED 


MO, 


...015 


TEST 


7: 


EXTENDED 


MO. 


. . .E15 


TEST 




EXTENDED 


MO. 


. . ,F15 


TEST 


7: 


EXTENDED 


MO. 


. ..G15 


TEST 


7: 


EXTENDED 


MO. 


. ..HIS 


TEST 


-t , 
/ x 


EXTENDED 


MO. 


...115 


TEST 


7: 


EXTENDED 


MO. 


. . .J15 


TEST 


7: 


EXTENOEO 


MO. 


. . .Klb 


TEST 


7: 


EXTENDED 


MO. 


. ..L15 


TEST 


7: 


EXTENDED 


MO. 


. ..M15 


TEST 


8: 


RECORD BUFF. 


. ..N15 


TEST 


8: 


RECORD BUFF. 


. . .B16 


TEST 


8: 


RECORD BUFF, 


. ..C16 


TEST 


8: 


RECORD BUFF. 


. . .D16 


TEST 


8: 


RECORD BUFF. 


. ,.E16 


TEST 


8: 


RECORD BUFF. 


. . ,F16 


TEST 


8: 


RECORD BUFF. 


. . ,G16 


TEST 


8: 


RECORD BUFF. 


. . ,H16 


TEST 


8: 


RECORD BUFF. 


. ..116 


TEST 


8: 


RECORD BUFF. 


. . .J16 


TEST 


8; 


RECORD BUFF. 


. . .K16 


TEST 


6: 


RECORD BUFF, 


. , I lb 


TEST 


9: 


FUNCTION 


TI. 


♦ ..Mlb 



B.l 



TEST 1 - HARD WW 


*E TEST ] 


1-8 TEST MACRO r 


TEST 9? FUNCTION TIMING 


101360 


001607 




101362 


103565 




101364 


012126 




5812 101366 






101366 


104406 




5813 1")1370 


013701 


102270 


5814 101374 


010102 




5815 101376 


052702 


000002 


5816 101402 


020102 




5817 101404 


001406 




5018 101406 


005237 


002214 


5822 101412 






101412 


104456 




101414 


001610 




101416 


103261 




101420 


015554 




5823 101422 






101422 


104406 




5824 101424 


012703 


000144 


5825 101430 


013737 


003116 102362 


5826 101436 


012737 


140005 102360 


5827 101444 


012704 


102360 


5828 101450 


012737 


001130 102366 


5829 101456 


010465 


000000 


5830 101462 


004737 


016330 


5831 101466 


016501 


000002 


5832 101472 


012702 


000200 


5833 101476 


020102 




5834 101500 


001406 




5835 101502 


005237 


002214 


5839 101506 






101506 


104456 




101510 


001611 




101512 


104121 




101514 


012126 




5840 101516 






101516 


104406 




5841 101520 


005303 




5842 101522 


001345 




5843 101524 


004737 


011074 


5844 101530 


1034U 




5845 101532 


016501 


000002 


5846 101536 


010004 




5847 101540 


005237 


002214 


5C51 101544 






101544 


104456 




101546 


001612 




101550 


103565 




101552 


012126 




5852 101554 






101554 


104406 




5853 101556 


013701 


102270 


5054 101562 


010102 




5855 101564 


052702 


000002 


5856 101570 


02C102 




5857 101572 


001406 




5858 101574 


005237 


002214 
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301 j 



CKLOOP 



MOV 


T37BFR»6.R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T37B0T.EXPREC 



401: 



65$: 



70$ j 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
FRRHRO 



CKLOOP 

DEC 
BNE 
JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



•100.. R3 

FREE.T37WB 

0140005, T37PK3 

M37PK3.R4 

•600..T37S/ 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

•SSR.R2 

R1.R2 

70$ 

FATFLG 

ERRN0.T37WUC. PKTSSR 



R3 

65$ 

PC. REWIND 

130$ 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRN0.T37RWN, PKTSSR 



130$; CKLOOP 



MOV 


T37B r R»6 l Rl 


MOV 


R1.R2 


6IS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 



SEQ 206 



iLOOP IF SELECTED 

iPICK UP XSTO 

i SET UP EXPECTED 

l SET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

iBR, -V EQUAL COK) 

i ERROR COUNT 
,TAPE NOT AT BOT AFTER 



.WORD 
.WORD 

.WORD 

TRAP 



903 
T37RWN 

PKTSSR 

CICLP1 



l LOOP IF SELECTED 



REWINO 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
904 
T37B0T 
EXPREC 



iNUMBER OF RECORDS TO BE WRITTEN 
j STARTING WRITE BUFFER ADDRESS 
iWRITE DATA.ACK.CVC-1 COMMANO 
I SET UP R4 WITH PACKET ADDRESS 
i SET UP RECORD SIZE IN PACKET 
lISSUE COMMAND 
tWAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE THEY EQUAL 
j BR, IF OK 

i ERROR COLNT 
jTSSR INCORRECT AFTER WRITE DATA 



C$CLP1 



lLO'/» 



rr 



SELECTED 



TRAP 

.WORD 

.WORD 

>;ord 

TPAP 

tDEC RECORD COLTER 

iBR, IF MORE RECORDS TO WTITE 

j CALL TAPE REWIND COMMANO 

i BR. IF NO PROBLEM 

iGET TSSR CONTENTS 

j GET PACKET ADORE SS 
lERROR COUNT 

jREWINO NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
905 
T37WDC 
PKTSSR 

C$CLP1 



iLOOP IF SELECTED 

|PIC* UP XSTO 

iSET UP EXPECTED 

»SET BOT BIT IN EXPECTED 

iDOES EXP • REC'O 

tBR, If EQUAL (OK) 

i ERROR COUNT 



TRAP 



C$ERHRD 
906 
T37RWN 
PKTSSR 

C$CLP1 



CI 



m w, mmm mu 
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SEQ 209 



5665 



5863 

15864 
5865 
5866 
5867 
5868 
5869 



5870 
5871 
5872 
5873 
5874 
5875 
5876 
5880 



5881 

5882 
5883 
5884 
5885 
58B6 
5890 



5891 

5892 
5893 
5894 
5895 
589b 
5897 
5901 



101600 

101600 

101602 

101604 

101606 

101610 

101610 

101612 

101616 

101624 

10163? 

101636 

101642 

101642 

101646 

101650 

101654 

101656 

101662 

101664 

101670 

101672 

101676 

101702 

101704 

101710 

101712 

101714 

101720 

101720 

101722 

101724 

101726 

101730 

101730 

101732 

101736 

101740 

101742 

101746 

101752 

101752 

101754 

101756 

101760 

1017*2 

101762 

101764 

101770 

101772 

101776 

102000 

102002 

102006 

102006 

102010 

102012 



104^56 
001615 
10326* 
015554 

104406 
012704 
012737 
012737 
010465 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
00536? 
00136? 
016501 
032701 
001755 
012702 
020201 
001406 
005237 

104456 
001614 
105027 
012126 

104406 
004737 
103411 
010004 
016501 
005237 

104456 
001615 
103565 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 

001616 
103261 



ERRHRD fcRRN0»T57B0T,EXPREC 



102360 
000037 
140010 
000000 
102406 

000001 

002116 

177772 

17/756 

00 000* 
000200 

000200 
002214 



011074 



0OOO02 

002214 



140$} CKLOOP 



102362 
102360 



1501: 
152$: 



MOV 
MOV 
MOV 
MOV 
INC 
DELAY 



MOV 
BIT 
BEQ 
MOV 
CMP 
BEQ 
INC 
ERRMRD 



K0$; CKLOOP 

JSR 
BCS 

MOV 
MOV 
INC 
ERRHRD 



170$: CKLOOP 



OT37PK3.R4 

*31.,T37RB 

0140010, T37PK3 

R4.TSDBCR5) 

T37CNT 

1 



102270 
000002 

002214 



TSSR(R5),R1 

0SSR.R1 

152$ 

♦SSR.R2 

R2.R1 

160$ 

FATFLG 

ERRN0.T37SCF .PKTSSR 



PC. REWIND 

170$ 

R0.R4 

TSSR(R5),R1 

FATFLG 

ERRN0.T37RWN.PKT5SR 



«10V 


r3?RFR*6,Rl 


MOV 


R1.R2 


BIS 


•BIT1.R4 


CMP 


R1.R2 


BEQ 


175$ 


INC 


FATFLG 


ERRHRD 


ERRNQ,T37BQT I EXPREC 



jLOOP IF SELECTED 

iPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

I DOES EXP • REC'D 

jBR, IF EQUAL (OK) 

iERRQR COUNT 
I TAPE NOT AT BOT AFTER 



TRAP 



•l.CPC)* 


L$DLY,CPC)> 



-6CPC) 

. -4 

-22CPC) 

.-20 



,TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 

.WORD 907 

.WORD T37BOT 

.WORD EXPREC 
lLOOP IF SELECTED 

TRAP C$CLP1 
j SET UP PACKET ADDRESS 
j SET UP RECORDS TO SPACE OVER 
jACK.CVC-l, SPACE FORWARD COMMAND 
i ISSUE COMMAND 
i BUMP TIMER 
j DELAY ABOUT 100US 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 
I GET TSSR 

iCHECK FOR TSSR'S SSR SET 
»KEEP COUNTING UNTIL SET 
»SET UP EXPECTED 
iWAS EVERYTHING OK 
i BR, IF ALL IS WELL 

t ERROR COim 
; SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 
I CALL TAPE REWIND COMMAND 
i BR. IF NO PROBLEM 
,GET PACKET ADDRESS 
,GET STATUS FROM TSSR 

lERROR COUNT 
; REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
,WORO 



C$ERHRD 

908 

T37SCF 

PKTSSR 
C$CLP1 



C$ERHRD 
909 
T37RWN 
PKTSSR 

C$CLP1 



REWIND 
TRAP 
.WORD 
*WQRD 



C$ERHPD 
910 

uraoT 



Dl 



TEST 
TEST 



*x 



5902 

5903 
5904 
5905 
5906 
5907 
5906 



5909 
5910 
5911 
5912 
5913 
5914 
5915 
5919 



5920 

5921 
5922 
5923 
^924 
S^25 
59^ 
5<V7 
5931 



5932 
5933 



5934 
b?35 
5936 
5937 

5936 
5939 

59-10 
594 J 

5942 



mm mi* 9 
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102014 

102016 

102016 

102020 

102024 

102031 

102040 

102044 

102050 

102050 

102054 

102056 

102062 

102064 

102070 

102072 

102076 

102100 

102104 

102110 

102112 

102116 

102120 

102122 

102126 

102126 

102130 

102132 

102134 

102136 

102136 

102140 

102144 

102150 

102154 

102160 

102162 

102164 

102170 

102170 

102172 

102174 

102176 

102200 

102200 

102202 

102202 

1022^ : 

102212 
10221* 
102220 



102220 

1.02224 



015554 

104406 
012704 
012737 
012737 
010465 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
0165^1 
032701 
001755 
012702 
020201 
001406 
005237 

104456 
001617 
1C5027 
012; 26 

104406 
013701 
013702 
042701 
C42702 
020102 
003406 
005237 

104456 
001620 
103354 
015554 

104406 



i04»>03 
02372 7 
103402 
004737 



004 737 
103002 



102360 
000121 
140010 
000000 
102410 

000001 

002116 

177772 

177756 

000002 
000200 

000200 
002214 



102406 
102410 
000077 
000077 



002214 



175$ j CKLOOP 



102362 
102360 



250$: 
252$: 



MOV 
MOV 
MOV 
MOV 
INC 
DELAY 



OT37PK3.R4 

081..T37RB 

0140010, T37PK3 

R4.TSDBCR5) 

T37CNU 

1 



MOV 


TSSR(R5),R1 


BIT 


>SSR,R1 


BEQ 


252$ 


MOV 


0SSR.R2 


CMP 


R2.RI 


BEQ 


260$ 


INC 


FATFLG 


EKRHRO 


ERRNO>T37SCF,PKTSSR 



260$: CKLOOP 



MOV 


T37CNT.R1 


MOV 


T37CNU.R2 


BIC 


0000077, Rl 


BIC 


0000077, R2 


CMP 


R1.R2 


BLE 


300$ 


INC 


FATf LG 


ERRMRD 


ERRN0.T37TIM, EXPREC 



C 022 14 000017 
0X7262 



U1'.V>36 



300$: 


CKLOOP 
ENOS»^B 




999$: 

1 


CMP 
BLO 
JSR 


FATFLG, 015. 

999$ 

PC.CKOROP 


t 

i 


JSR 
BCC 


PC.TSTLOOP 
163$ 



SEQ 210 



.WORD 

I LOOP IF SELECTED 

TRAP 

I SET UP PACKET ADDRESS 

j SET UP RECORDS TO SPACE OVER 

|ACK,CVC-1,SPACE FORWARD COMMAND 

I ISSUE COMMAND 

j BUMP TIMER 

j DELAY ABOUT 100US 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

8NE 

iGET TSSR 

iCHECK FOR TSSR'S SSR SET 

iKEEP COUNTING UNTIL SET 

I SET UP EXPECTED 

I WAS EVERYTHING OK 

»BR, IF ALL 15 WELL 
, ERROR COUNT 

j SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 



EXPREC 
C$CLP1 



Ol.CPC)* 


L$DLY,CPO* 



-6CPC) 

. -4 

-22CPC) 

.-20 



iLOOP IF SELECTED 



TRAP 



C$ERHRD 
911 

T37SCF 
PKTSSR 

C$CLP1 



I TIME FOR WRITE SPACING 

i TIME FOR WRITE RETRY SPACING 

iSETTING UP CONSTANTS 

l SETTING UP CONSTANTS 

I CHECK FOR DIFFERENCE 

i BR, IF GOOD QBB& CHECK SW0 

t ERROR COUNT 
I TIME WAS 



l LOOP IF 



NOT DIFFERENT ENOUGH 




TRAP 


C$ERHRD 


.WORD 


912 


.WORC 


T37TIM 


.WORD 


EXPREC 


SELECTED 





TRAP 



CSCl.Pl 



j <<<<<<<<<<< << 



END SUBTEST 
L 10074: 

TRAP 
lIS ERROR COINT AT 25 
iBR, IF LESS THAN 25 
i TRY TO DROP THE UNIT 



»D0 WE NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 



>>*>***>**>* 



c$esub 



El 



TES) 1 - 


HARDWARE TEST 
FUNCTION TIMIN 


TEST 9: 


5943 


102226 


000137 


5944 


102232 




5945 


102232 






102232 


104432 




102234 


003306 


5946 






594 7 






5948 






5950 




102240 


5952 


102240 




5953 


102240 


100004 


5954 


102242 


102250 


5955 


102244 


000000 


5956 


102246 


000012 


5957 


102250 




5958 


102250 


102262 


5959 


102252 


000000 


5960 


102254 


000024 


5961 


102256 


000000 


5962 


102260 


000000 


5963 


102262 




5964 






5965 






5*66 






5968 




102350 


5970 


102350 




5971 


102350 


100OO6 


597C 


102352 


102370 


5973 


102354 


000000 


5974 


102356 


000006 


5975 






5979 


102360 




5980 


102360 


100005 


5981 


102362 




5982 


102362 


003116 


5983 


102364 


000000 


5984 


102366 


000000 


5985 






5986 






5987 






5988 






5989 


102370 




5990 


102370 


010 


5991 


102371 


200 


5992 


102372 


000000 


5993 


102374 


000000 


5994 






5995 






5996 






5997 






5998 






5999 


102376 


100205 


6000 


102400 


100605 


6001 


102402 


102205 


6002 


102404 


177777 


6003 






60Q4 







-8 TEST MACRO M1113 



163*: 



J * 



06-FEB-84 


18 s 04 


JMP 


T37L00P 


EXIT 


TST 



j LOCAL STORAGE FOR THIS TEST 



,-<.*10 


:£177770 


T37PACKET: 




.WORD 


100004 


.WORD 


T37DATA 


.WORD 





.WORD 


10. 


T37DATA: 




.WORD 


T37BFR 


.WORD 





.WORD 


20. 


.WORO 





T37DSW: .WORD 





T37BFR: .BLKW 


25. 



j WRITE SUBSYSTEM MEMORY COMMAND PACKET 



T37PK2; 



.-<. *10>£177770 



100006 

T37BF2 



6 



100005 

FREE 







.WORD 
.WORD 
.WORD 
.WORD 

T37PK3: 

.WORD 
T37RB: 
T37WB: .WORD 

.WORD 
T37SZ; .WORD 

.EVEN 
J 
i 

T37BF2: 

T37BSO; .BYTE 

T37BS1: .BfTE 

T37S2; .WORD 

T37S3? .WORD 

I 

.EVEN 

, TAPE MOTION PACKET COMMAND VALUES 



10 
200 





T3 7RN: .WORD 

T5 7WDR: .WORD 

TS7C0N: .WORD 

.WORD 



J 



100^05 
100605 
102205 
177777 



SEQ 211 

I EXECUTE AGAIN 
»ALL DONE THIS TEST 



TRAP CIEXIT 
.WORD L10073 



iCOMMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMANO. WITH 

jADDRESS OF CHARACTERISTICS BLOCK 

, STARTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

jLENGTh OF MESSAGE BUFFER 

jSELECT DRIVE 
, MESSAGE BUFFER 



ACK 



, WRITE SUB SYS MEM COMMAND. AND ACK 
j ADDRESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



iREREAD COMMAND, ANO ACK 
jADDRESS OF WRITE BUFFER 
j SIZE OF BUFFER (EXTENT) 



iBSELO AREA 
jBSELl AREA 
iSEL 2 AREA 

jDATA AREA 



iREREAD DATA (NEXT) 
iREREAD DATA RETRY 
I WRITE CONTINOUS 
iEND OF DATA 



Fl 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1H3 
TEST 9: FUNCTION TIMING 



06-FEB-84 t8;04 



6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

b016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

604 7 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

606C 

6061 



102406 
102410 
102412 



102414 

102502 

102551 

102o46 

102730 

103000 

103055 

103136 

103172 

103261 

103354 

103431 

103510 

103565 

103634 

103707 

103756 

104031 

104121 

104174 

104247 

104322 

104411 

104473 

104555 

104643 

104731 

105027 

105104 

105166 

105246 

105343 



105364 
105364 

105370 
105374 
105400 
105404 
i05406 
105412 
105416 
105420 



000000 
000000 
000000 



124 

124 

122 

120 

122 

124 

111 

122 

124 

124 

127 

122 

124 

122 

122 

124 

104 

124 

124 

103 

124 

127 

122 

122 

122 

122 

127 

124 

124 

124 

104 

106 



141 
123 
105 

117 

111 

123 

154 

105 

123 

141 

122 

105 

123 

145 

101 

123 

162 

123 

123 

126 

123 

122 

145 

145 

1*5 

145 

122 

123 

123 

123 

141 

165 



160 

123 

122 

123 

102 

123 

154 

122 

123 

160 

111 

122 

123 

167 

115 

123 

151 

123 

123 

103 

102 

111 

141 

141 

163 

141 

111 

123 

123 

123 

164 

156 



012701 
012721 
012721 
005021 
012721 
01?721 
005021 
012721 



102240 
100004 

102250 

000012 
10226.' 

000024 



T37CNT; 


.WORD 





T37CNU: 


.WORD 





T370LY; 


.WORD 






SEQ 212 



jTAPE TIMER COUNTER 
I TAPE TIMER COUNTER 
l DELAY COUNTER 



STORAGE 
STORAGE 



AREA 
AREA 



! LOCAL TEXT MESSAGES FOR TEST 
I - 



T37WNG: 

T37RDF : 

T37RRF: 

T37SC: 

T37LOR: 

T37WOF: 

T37LOQ: 

T37SSR: 

T37WOE: 

T37BOT: 

T37TIM: 

T37EOT: 

T37TM: 

T37RWN: 

T37RNC: 

T37AM3: 

T370FLi 

T37WDO: 

T37WOC: 

T37VCK: 

T37BA: 

T37WSS: 

T37LON: 

T37LOP: 

T37PBP: 

T37TRI: 

T37NEF; 

T37SCFj 

T37TSA: 

T37WRF; 

T37DTA: 

TST37I0 

i ♦ 



.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
• 

'.EVEN 



Tap* Position Incorrect After PEREAO Previous (OPP-1)' 

TSSR Incorrect After READ DATA Command' 

REREAD Previous (Space Reverse. Reed Forward) Command Foiled' 

POSITION (Space Command) Failed, TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bits. Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA RETRY Command. At BOT' 

Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)' 

WRITE DATA RETRY' 'S Erase Tape h\ot Long Enough* 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAO COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error. Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COWHAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

DATA Command, SW3 Bit Set' 

DATA Command 

Message Buffer' 

DATA Command' 
Command Not Accepted (RAM Read)' 
To Set RLL Bit In XSTO' 
To Set RLS Bit In XSTO' 



TSSR Not Correct After 
TSSR Not Correct After 
CVC Set. Didn' 't Reset 
TS8A Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading Long Record Failed 
Reading Long Record Failed 



REREAD 
REREAD 
VCK In 
REREAD 



Residual Byte Count Incorrect After Short Record Read* 
Reading Long Record Failed To Give Tape Status Alert' 
WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3 
TSSR Not Correct After SPACE RECORDS Command' 
TSSR Not Correct Afte- WRITE DATA RETRY. Into BOT' 
TSSR Not Correct After WRITE DATA RETRY Command- 
Data Compare Error, Data Read From Tape Not Equal To Written' 
.ASCIZ 'Function Timing' 



iROUTINE TO RESTORE COMMANO PACKET 
j WRITE SUBSYSTEM MEMORY COMMAND 

i 
l - 

T37REST: 

SAVREG 

MOV OT37PACKET.R1 

MOV 0100004. (Rl)* 

MOV 0T37DATA,(R1)> 

CLR (Rl)* 

MOV 4>10.,(R1)» 

MOV 0T37BFR.(R1)» 

ClR (Rl)» 

MOV 020..CR1)* 



TO START-UP (DEFAULT) VALUES 



iSAVE THE REGISTERS 

, START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK . 

jADDRESS OF CHARAISTICS DATA BLOCK 

EXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN BtTES 

j ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 



Gl 



TEST 1 - HARDWARE TEST 


1-8 TEST 


MACRO M1U3 06 


-FEB -84 


18; 04 




SEQ 213 


TEST 9: FUNCTION TIMING 












6062 105424 


005021 






CLR 


(Rl)* 






6063 105426 


012711 


000000 




MOV 


00, (Rl) 




, SELECT ORIVE ZERO 


6064 105432 


012702 


000030 




MOV 


#24. ,R2 




(NUMBER If LOCATIONS TO BE CLEARED 


6065 105436 


012762 


177777 


102262 64$: 


MOV 


017777?, 


T37BFR(R2) 


(ALL ONES TO MESSAGE BUFFER 


6066 105444 


005742 






TST 


-(R2) 




,NEXT LOCATION 


6067 105446 


022702 


000000 




CMP 


00, R2 




j AT END OF LOOP YET 


6068 105452 


001371 






BNE 


64$ 




(KEEP GOING UNTIL DONE 


6069 105454 


000207 






RTS 


PC 




(RETURN 


6070 
















6071 105456 






T37RT2; 










6072 105456 








SAVREG 






,SAVE THE REGISTERS 


6073 105462 


012701 


102350 




MOV 


0T37PK2, 


,R1 


i START OF THE PACKET 


6074 105466 


012721 


100006 




MOV 


0100006, 


CRD* 


, WRITE SUBSYSTEM MEM. WITH ACK , 


6075 105472 


012721 


102370 




MOV 


0T37BF2, 


( (R1)* 


I ADDRESS OF DATA BLOCK 


6076 105476 


005021 






CLR 


(Rl)* 




(EXTENDED ADDRESS 


607 7 105500 


012721 


000006 




MOV 


06. ,(R1)* 


(SIZE OF DATA BLOCK IN BYTLS 


6078 105504 


005021 






CLR 


(Rl). 






6079 105506 


012701 


102370 




MOV 


OT37BF2, 


,R1 


jPOINT TO DATA SEL AREA 


6080 1C5512 


005021 






CLR 


(Rl)* 






6081 105514 


005011 






CLR 


(Rl) 






6082 105516 


000207 






RTS 


PC 




{RETURN 


6083 105520 






T37RT3; 










6084 105520 








SAVREG 






(SAVE REGISTERS 


6085 105524 


012701 


102360 




MOV 


0T37PK3 


.Rl 


j SET UP POINTER ADDRESS 


6086 105530 


005021 






CLR 


(Rl)> 




(COMMAND SPACE 


6087 105532 


005021 






CLR 


(Rl)> 




(ADDRESS OF DATA BLOCK 


6098 105534 


005021 






CLR 


(Rl)* 




jEXTENOED ADDRESS 


6089 105536 


005011 






CLR 


(Rl) 




(SIZE OF DATA TRANSFER BLOCK 


6090 105540 


000207 






RTS 


PC 




(RETURN 


6091 105542 








ENOTST 








105542 














L10073{ 


105542 


104401 












TRAP C$ 


6092 105544 








ENDMOD 









HI 



TSV6 - PARAMETER CODING MACRO 
TEST 9; FUNCTION TIMING 

1 

7 

12 
16 

19 105544 
105544 
20 
21 
22 
23 
24 
25 



28 

2^ 

30 

31 105544 
105544 
105546 

32 

33 105546 
105546 
105550 
105552 
105554 

34 105556 
105556 
105560 
105562 
105564 

35 

36 105566 



M1U3 06 -FEB-84 1B:04 



SEQ 214 



TSV6:t 



.TITLE TSVb • PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



105566 
3 7 105566 

38 105622 

39 105646 
40 



000010 



000031 
105566 
160010 
177776 

001031 
105622 
000000 
0007 76 



104 
111 
111 



LIHARD:: 



105 
116 
116 



L10075: 
126 HPMl 
124 HPM2 
134 HPM3 



BGNHRD 

.WORD L10075-L$HARD/2 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

jGPRMO 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCI/ 
.<*SCI/ 
.EVEN 



HPMl. 0,0, 160010, 177776, YES 

T I CODE 

HPMl 

TILOLIM 

TIHILIM 

HPM2.2,0.0, 776, YES 

TlCGDE 

HPM2 

TILOLIM 

TIHILIM 

HPM3,4,0,340.0,7,YES 



•DEVICE ADDRESS (TSBA/TSDB") 
' INTERRUPT VECTOR 
'INTERRUPT PRIORITY 



jGET TSBA/TSDB REGISTER ADDRESS 



jGET VECTOR ADDRESS. 



iGET INTERRUPT PRIORITY. 



II 



PARAMETER CODING MACRO MM 13 

ECTlON 



TSV6 

SOFTWARE PARAMETER CODING 



06-fEB-84 18:04 



SEQ 215 



42 

43 

44 

45 

46 

47 

40 

49 

50 

51 

S2 105676 
1056 76 
105700 

53 

54 10570C 
105700 
105702 
105704 

55 

56 

57 105706 

105706 
58 

59 105706 

60 105736 

61 105766 

62 106016 
t>3 

64 

65 

66 

67 

68 

69 

70 

71 

72 106046 

73 

74 106046 

75 

77 

79 106400 

106400 
106402 
106404 

80 106404 
61 



000003 



001130 
105736 
177777 



105 
111 
120 
120 



116 
116 
105 
105 



106400 



000000 

000000 



000001 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



j * ♦ 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 



j WITH THE OPERATOR. 



t -- 



L*SOFT: 



BGNSFT 

.WORD L10076-LiS0FT/2 



L1O076? 



1C1 SPM1 

110 SPM4 

122 SPM6 

122 SPM? 



GPRML 

GPRML 

.WORD 

.WORD 

.WORD 

GPRMO 

GPRMO 

ENOSFT 

.EVEN 



.ASCI* 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.SBTTL 



SPM1, 0.1. YES 

SPM4, 2,-1, YES 

TICODE 

SPM4 

-1 

SPM6.4.D, 777 7,0, 7777, YES 

SPM7.6.D, 7777,0, 7777, YES 



'ENABLE TRANSPORT TESTS 
• INHIBIT ITERATIONS 
•PER TEST ERROR LIMTT 
'PER UNIT ERROR LIM, , 
PATCH AREA 



{ GET TRANSPORT TEST FLAG. 
, GET ITERATION CONTROL. 



i GET LOCAL ERROR LIMIT 
j GET GLOBAL ERROR LIMIT 



, FINALLY A GENEROUS PATCH AREA. 

! AND AN ADJUSTMENT to ACCOUNT FOR THE "LASTAD BIT7" HACK 
; DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 



PATCH: 



LJLASTt 



.BLKW 32, 

.-. !37/*l 

LASTAD 
.EVEN 
. WORD 
. .JORD 

ENDMOD 
.END 



j SET LAST USED ADDRESS, 



Jl 



TSv6 - 


PARAMETER CODING 


MACRO M1113 06-FE6-84 


18 j 04 






SEQ 216 






SYMBOL 


TABLE 


















ADDSSR 


012206 r. 


CtMU • 


000052 


DEVDRO 


023456 


FRESIZ 


003120 G 


INTFLA 


016225 


AOR 


000020 l'i 


CJAUTO- 


000061 


DEVNRD 


023375 


FUSI 


004113 


INTMAS 


016224 


AMBTSf* 


00671*. 


CiBRK - 


000022 


DEVNXR 


023313 


FiAU • 


000015 


INTR 


016276 G 


ASSEMri* 


00001C 


CJBSEG" 


0000^4 


DEVONL 


023243 


F$AUT0- 


000020 


INTREC 


002216 G 


A1716 » 


000003 


csbsub- 


000002 


DEVSUM 


023206 


FIBGN - 


000040 


INTVEC 


016226 


BADOAT 


0O315O G 


CtCEt'G- 


000045 


DFPTBL 


002150 G 


FICLEA- 


000007 


INTX 


004274 


BADSSR 


015760 G 


LICLCK- 


000062 


DIAGMC- 


000000 


F$DU - 


000016 


INVERT 


021266 G 


BDVPCR* 


177520 G 


CiCLEA- 


000012 


DICED * 


000001 


F$END ■ 


000041 


IOKCKI- 


000200 


B^NBSW 


002222 G 


CtCLOS- 


000035 


DSBINT 


016264 


FiHARD- 


000004 


IOKSTP- 


000001 


f.if. 


040000 


C$CLP1« 


000006 


D»JADi2 


004637 


FiHW - 


000013 


IPRI 


002204 G 


BITO - 


000001 G 


CICVEC- 


000036 


DUFLG 


003104 G 


FflNIT- 


000006 


ISR 


000100 G 


31100 - 


000001 G 


CJOCLN- 


000044 


DUMMY 


003054 


FIJMP - 


000050 


IVEC 


002202 G 


BIT01 - 


000002 G 


C*D00U- 


000051 


EF.CON' 


G00036 G 


FIMOO ■ 


000000 


IXE 


004000 G 


BIT02 - 


000004 G 


CiDRPT- 


000024 


EF.NEW- 


000035 G 


FIMSG ■ 


000011 


IIAU • 


00004 1 


BIT03 • 


000010 G 


CIOU • 


000053 


Er.PWR- 


000034 G 


KIPROT- 


000021 


IIAUTO- 


00004 1 


BIT04 » 


000020 G 


CiEOIT- 


000003 


EF.RES- 


000037 G 


F$PWR - 


000017 


I*CLN - 


000041 


BIT05 • 


000040 G 


C$EROf- 


000055 


EF.STA- 


000040 G 


FIRPT ■ 


000012 


ItDU • 


000041 


BIT06 a 


00^100 G 


c;er«r- 


000056 


EMAXDU 


017057 


FISEG ' 


000003 


IIHRD - 


000041 


BIT07 » 


000200 G 


CIERRG- 


000060 


EN 


000000 


F$S0FT- 


000005 


IIINIT- 


000041 


BIT08 » 


000400 G 


CIER'jF- 


000054 


ENAINT 


016232 


FISRV - 


000010 


I$MOD - 


000041 


BIT09 « 


» 001000 G 


CIERS3- 


000057 


ENVIRN 


020710 


F*sue ■ 


■ 000002 


I*MSG - 


00004 1 


BIT1 ■ 


• 000002 G 


CSESCA- 


000010 


EPRTSU 


003172 G 


FISW - 


• 000014 


IIPROT- 


000040 


BIT10 ' 


■ 0C20O0 G 


CiESEG- 


000005 


EPRT1 


006354 


FITEST- 


• 000001 


IJPTAB- 


000041 


BITU • 


• 004000 G 


C*ESUB« 


000003 


EHRT2 


006413 


GDDAT 


003152 G 


HPUR - 


000041 


BITlif ■■ 


• 010000 G 


C*ETST" 


000001 


ERCM 


012013 


GERRMA 


002166 G 


IIRPT > 


000041 


BIUS ' 


■ 020000 1 


CiEX?.T- 


000032 


ERRHI 


002230 G 


GETPAT 


020254 G 


IISEG - 


000041 


BIT14 


■ 040000 G 


CIGETB- 


000026 


ERRK 


017036 


GETSEL 


020336 G 


IISETU- 


000041 


BIT15 - 


• 100000 G 


CIGETW- 


000027 


ERRLO 


002232 G 


GICNTO- 


• 000200 


IISFT - 


» 000041 


BIT2 


• 000004 i~ 


C$GMAN- 


000043 


ERRNC • 


001620 


GIDELM- 


• 000372 


IiSRV - 


• 000041 


G1T3 


■ 000010 G 


C5GPHR- 


000042 


ERRVEC- 


000004 G 


GIDISP 


• 000003 


i$sue ■ 


■ 000041 


BIT4 


■ 000020 G 


c;gplo« 


000030 


ERTABE 


003370 


GiEXCP 


• 000400 


IiTST - 


- 000041 


BIT5 


* 000040 G 


CtGPRX- 


000040 


ERTABL 


003170 


GIHILI 


• 000002 


JUMP « 


• 000167 


BIT6 


- 000100 G 


CIINIT- 


000011 


ESUM 


017040 


GILOLI 


• 000001 


KIPARO 


• 172340 


BIT/ 


- 000200 G 


CIINLP- 


000020 


tVL 


000004 G 


GINO 


■ 000000 


KIPAR1 


■ 172342 


BIT8 


- 000400 G 


CIMANI- 


000050 


EXBCNT* 


000010 


GIOFFS 


- 000400 


KIPAR2- 


• 172344 


BIT9 


- 001000 G 


CIMEM » 


000031 


EXPBRE 


015562 G 


GIOFSI 


- 000376 


KIPAR3 


• 172346 


BOE 


- 000400 G 


CtMSG - 


000C23 


EXPO 


002224 G 


GIPRMA 


• 0OOO01 


KIPAR4 


■ 172350 


BRINIT 


004453 


CIOPEN- 


000034 


EXPGOT 


004527 


GtPRMD 


- 000002 


KIPAR5 


• 172352 


BSFLO 


• 000000 


cipntb- 


000014 


EXPGT2 


004563 


GIPRML 


• 000000 


KIPAR6 


• 1/2354 


BSEL1 


» 000001 


CtPNTF- 


000017 


EXPM5C 


002314 G 


GIRADA 


- 000140 


KIPAR7 


• 172356 


CHKAMB 


016124 


CIPN1S- 


000016 


EXPREC 


015554 G 


GIRAD6 


- 000000 


KIPDRO 


• 172300 


CHKMAN 


020560 G 


CtPNTX- 


000015 


EXTA 


005766 


GIRADD 


• 000040 


KIPDR1 


• 172302 


CHKTSS 


016416 


CtQIO • 


000377 


EXTEND 


005764 


GIRADL 


• 000120 


KIPDR2 


- 172304 


CKDROP 


017262 


CIR06U- 


000007 


EXTFEA 


002220 G 


GIRADO 


• 000020 


KIPDR3 


• 172306 


CKEMAX 


017162 


cirefg- 


00004 7 


E$ENO ■ 


002100 


GIXFER 


■ 000004 


KIPDR4 


- 172310 


CKMbG 


011440 G 


CIRESE- 


000033 


EILOAD* 


000035 


GI.'ES 


- 000010 


KIP0R5 


• 172312 


CKMSG2 


011560 G 


CiREVI- 


000003 


FATERR- 


OOOObO 


HIAODR 


- 001400 


KIPDR6 


- 172314 


CKRAM 


011174 G 


CIRFLA- 


000021 


FATFLG 


002214 G 


HOE 


• 100000 G 


KIPDR7 


■ 172316 


CKRAM2 


011304 G 


CIRPT - 


000025 


FERCM 


012002 


HPMi 


105566 


KTENA8 


003126 G 


CMOPKT 


021340 G 


CI5EFG- 


000046 


FIFEXP 


012250 G 


HPM2 


105622 


KTFLG 


003124 G 


CMP MEM 


017740 


CiSPRI- 


000041 


FIF1M5 


012322 


HPM3 


105646 


KTINIT 


021134 


CONFIG 


017330 


CISVEC- 


000037 


FIF2MS 


012371 


IBE 


» 010000 G 


KTOFF 


017354 


C0UN1 


002302 G 


CMPRI- 


000013 


FILLME 


017502 


100 


- 000040 G 


KTON 


017336 


CSRAOD 


0022CO G 


DATA 


002304 G 


FNOINT 


004211 


IER 


- 020000 G 


LERRMA 


002164 G 


CTAR 


003156 G 


DATAS: 


020312 


FORCER 


002170 G 


IFAULT 


004252 


LISTAL 


- 000001 


CTABE 


00317C G 


DtBUGM 


011712 


FREE 


003115 G 


INCERK 


017124 


LOE 


- 040000 G 


CTABM 


003156 G 


DEVCNT 


002212 G 


5'REEHI 


003122 


XNTCPC 


016230 


LOQPCN 


002210 G 



Kl 



TSv.. - 
symboi 

LOOPCO 

LOOPFL 

LOT « 

L$ACP 

L$APT 

L$Al. 

I.$/,UT 

L$AUTO 

L$CCP 

L$CLEA 

L$CO 

L*DEPO 

L$DESC 

L$DESP 

LiDEVP 

L$DISP 

LiDlY 

L*DTP 

L$DTYP 

L$DU 

L$OUT 

LSDVTY 

L<EF 

L$ENVI 

Lil.TP 

LSEXP1 

L$EXP4 

LiEXP5 

L SHARD 

LSHIME 

LIHPCP 

L5HPTP 

L*HW 

LilCP 

LIXNIT 

L$LADP 

LM.AST 

L$LOAO 

LJLUN 

L*MREV 

L$NAME 

LiPRIO 

L*PROT 

L$PRT 

LiREPP 

LiREV 

L*RPT 

L.iSOrT 

L$SPC 

LiSPCP 

LISPTP 

L$STA 

LiSU 

LATEST 

LiTIML 

LSUNIT 

LIOOOO 
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TABLE 










013206 


lICOO' 


002170 


L10073 


105542 


003154 G 


LlO'-v.'? 


005762 


L10074 


102202 


000010 G 


L 10003 


012124 


L10075 


105566 


002110 G 


L10004 


U2142 


L 10076 


105706 


002036 G 


L 10005 


012160 


MEMADD 


014034 G 


02243? G 


1 1,0006 


012166 


MEMCK 


021356 G 


002070 G 


L10007 


012204 


MENASC 


020527 


022636 G 


L10010 


012222 


MENERR 


020454 


002106 G 


L 10011 


012246 


MENRES 


020556 


022716 G 


1.10012 


012320 


MMVEC ■ 


000250 


002032 G 


L10013 


012470 


MSA.FR- 


000006 


002011 G 


L10014 


013204 


MSA,N0' 


000000 


003402 G 


L10015 


014032 


MSA.NR- 


000004 


002076 G 


L10016 


014054 


MSA.VO- 


000002 


002060 G 


L10017 


015560 


MSGEXP 


012224 G 


002124 G 


L 10020 


015566 


MSGLOO 


013144 G 


002116 G 


L 10021 


015574 


MSGSTA 


012430 G 


002040 G 


L 10022 


015606 


MSGSUB 


014022 G 


002034 G 


L10023 


01"»630 


MS.AT1- 


000006 


022530 G 


L 10024 


015656 


MS.EXT- 


000200 


002072 G 


L 10025 


016016 


MS,RSD- 


000001 


003374 G 


L 10026 


016326 


MS.RSF- 


000020 


002052 G 


L 10030 


022362 


MS.RST- 


000010 


002044 G 


L 10031 


022526 


M8186 


005550 


002102 G 


L10032 


022634 


M0189 


005641 


002046 G 


L10033 


022714 


t«A 


002000 


002064 G 


L 10034 


022742 


NEWPAS 


022070 


002066 G 


L 10035 


023204 


NODEV 


003106 G 


105546 G 


L 10036 


032332 


NOINIT 


004331 


002120 G 


L10037 


024170 


NOINTR 


004215 


002016 G 


L 10040 


0247'? 


NOITS 


002162 G 


002022 G 


L 10041 


0254 3t 


NOMAN 


020614 


002150 G 


LI 0042 


026260 


NOMEM 


005454 


002104 G 


L10O43 


041430 


NP.IR - 


000200 


021636 G 


L 10044 


033734 


NP.LOO- 


000040 


002026 G 


L10045 


035360 


NP.OUT- 


000100 


106404 G 


L 10046 


035754 


NP.WRP- 


000020 


002100 G 


L 1004 7 


036440 


NSI 


001146 


002074 G 


L 10050 


046766 


NSINIT 


004403 


002030 G 


L 10051 


042322 


NUL 


004523 


002000 G 


L 10052 


043134 


NULCR 


0C4524 


002042 G 


L 10053 


053044 


NXM 


004000 


021626 G 


L 10054 


047642 


NXMFLC 


003130 G 


002112 G 


L 10055 


050452 


NXMHI 


0CM34 G 


002062 G 


L10056 


051266 


NXMLO 


003132 G 


002010 G 


L10057 


056040 


NXMTST 


021532 


022744 G 


L 10060 


054506 


NXR 


003734 


105700 G 


L 10061 


063412 


NXRERR 


005732 G 


002056 G 


L 10062 


0604 76 


NXRX 


003773 


UC2OP0 n 


L10063 


073342 


NXTU 


022102 


002024 G 


L100€1 


064504 


OFL 


000100 


002030 G 


L10065 


065564 


ONEFIL- 


000000 


002160 G 


L 10060 


066426 


OSAPTS- 


000000 


002114 G 


Lioot: 


067330 


OiAU • 


000001 


002014 G 


L10070 


101116 


0$BGUR- 


000001 


002012 G 


L10071 


074436 


OtBGNS- 


000001 


002156 


L10072 


075520 


OtDU - 


000001 





SEQ 217 


0*ERRT- 


000000 




OICNSW- 


000001 




otroiN- 


000001 




OISETU- 


000000 




PASRPT 


022134 




PATCH 


106046 


G 


PATDAT 


020310 




PC. ERA- 


002400 




PC. IER- 


002000 




PC.NOO- 


001000 




PC. PEL- 


000000 




PC.REW- 


000400 




PKBCNT- 


000006 




PKHI » 


000004 




PKLOW - 


000002 




PKTA">0 


00 7632 




PKTFRM 


007574 




PKTGET 


012144 


G 


PKTMES 


012170 


G 


PKTRAM 


004741 


G 


PKTSSR 


012126 


G 


PNT 


001000 


G 


PRAMPK 


014056 




PRASC 


014603 




PRBEXP 


015550 




PRBM5G 


015416 




PR8REC 


015552 




PRBTOT 


015503 




PRBYTE 


015202 


G 


PRI 


002000 


G 


PRIADD 


01023r. 




PRIAO 


010306 




PRIBXO 


007670 


G 


PRIEOU 


010136 




PRIPKT 


007446 


G 


PRIRAM 


010144 




PRITAD 


010352 




PRITSS 


006020 




PRITO 


010434 




PRIT1 


0104 7 7 




PRIXOR 


0'0020 


n 


PRIOO « 


000000 


G 


PRI01 - 


000040 


G 


PRI02 - 


000100 


G 


PRI03 ■ 


000140 


G 


PRI04 - 


000200 


G 


PRI05 - 


000240 


G 


PRI06 - 


ooo;<oo 


G 


PRI07 - 


000340 


G 


PRMESS 


014322 




PRMNO 


002312 


G 


PRMSGE 


014632 


G 


PRMSGO 


015012 




PRMSG1 


015057 




PRMSG2 


01CU5 




PROASC 


014500 




PR1ASC 


014545 





PST32W 
PUNIT 
PW.011 
PW.D13 
PW.D22 
PU.NOP 
PW.N01 
PW.RDE 
PW.RDR 
PW.RDS 
PU.RFI 
PW.WCT 
PU.UFI 
PW.WFM 
PU.WMI 
PW.WNP 
PW.WTR 
P.ACK 
P.CMO 
P.CONT 
P.CVC 
P.FMT 
P. FORM 
GETS 
.IE 
P.INIT 
P.MOOE 
P.OPP 
P.POSI 
P. READ 
P. SUB 
P. WRIT 
P.WRTC 
P.URTS 
QVP 

RAMASC 
RAMOAT 
RAMERR 
RAMEXP 
RAMFOR 
RAMSIZ 
RAMTAD 
RCVHIA 
RCVLOA 
RDERR 
RECMSG 
RECV 
REGSAV 
RE TERR 
REUINO 
RMCH6E 
RMCHEN 
RMMSGB 
RMMSGE 
RMPKTB 
RMPKTE 
RMR 



003144 

022364 

000021 

000022 

000020 

000000 

000023 

000024 

000001 

000005 

000003 

000006 

000004 

000007 

OOCUO 

000011 

000002 

100000 

000037 

000012 

040000 

000140 

000011 

000017 

000200 

000013 

007400 

020000 

000010 

000001 

010000 

000005 

000004 

000006 

002176 

014236 

002234 

015570 

01561j 

010174 

0022 74 G 

015576 

002276 

002 30C 

005202 

002460 

002226 

020220 

005366 

011074 

000167 

000200 

000215 

000234 

000201 

000210 

010000 



G 
G 
G 



LI 
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SYMBOL 1 


tt^E 


















RWPACK 


011170 


S2.INR- 


000020 


TSEXCP- 


000000 


T29C0N 


026462 


T30B0T 


040041 


SC 


100000 


S2.0UT- 


000040 


TIFLAG- 


000040 


T290AT 


026330 


T30BS0 


036630 


SCE 


020000 


S2.UN0- 


000003 


T*rMAN- 


000000 


T290LY 


026500 


T30BS1 


036631 


SCHERR 


005274 


TBEEND- 


003054 G 


TliilLl- 


000776 


T29DSW 


026340 


T30CNT 


036650 


SCME 


005007 


TCOASC 


006554 


TJLAST- 


000001 


T29DTA 


030043 


T30CNU 


036652 


SDELA> 


010740 


TCJCOD 


006754 


TILOLI- 


000000 


T29E0T 


030151 


T30DAT 


036510 


SELASC 


020522 


TErei 


003110 G 


TiLSYM- 


010000 


T29L0N 


031225 


T30DLY 


036656 


SEED AT- 


OC0004 


TEMP2 


003112 G 


T$LTN0- 


000011 


T29L00 


023556 


'. ^r:w 


036520 


SEL2 « 


000002 


TERCLS- 


000016 


T$NEST- 


177777 


T29L0P 


031307 


T30Di. n 


041134 


SETMAP 


017576 


TESTNO- 


000011 


T*NS0 ■ 


000000 


T29L0Q 


027426 


T30DTR 


C U070 


5ETU 


022166 


TEXASC 


006513 


TINS1 - 


000005 


T29L0R 


027301 


T30ETM 


G36516 


SFFMSG 


012162 G 


TFCASC 


006615 


TiNS2 « 


000002 


T29NEF 


026630 


T30FCN 


036654 


SFHERR 


003701 


TIMEXP 


01563.? G 


T$PTNU- 


000000 


T29NEQ 


031545 


T30IBT 


037031 


SFIERR 


003646 


TIMSGO 


015660 


TISAVL- 


177777 


T290FL 


026502 


T30IBU 


036660 


SFIMSG 


012114 G 


TINERR 


012101 


TiSEGL- 


• 177777 


T290F7 


030515 


T30IMV 


036636 


SFPTBL 


002160 G 


TMPBFR 


002624 G 


T*SUBN' 


■ 000001 


T29PAC 


026320 


T30L00 


032360 


SIFLAG 


003146 G 


TNAM 


016764 


TITAG'.* 


• 177777 


T29PBP 


031371 


T30L0Q 


037630 


SIMSG 


0120*6 


TRANST 


002160 G 


T*TAGN- 


• 010077 


T29PK2 


026430 


T30NEF 


040576 


SKIPT 


003372 


TSBA ■ 


000000 G 


T*TEMP« 


■ 000000 


T29PK3 


026440 


T300FL 


040307 


SOFINI 


016054 G 


TSBAH - 


000001 G 


T*TEST' 


• 000011 


T29RB 


026442 


T30PAC 


036500 


SPACE 


010544 G 


TSOB - 


000000 G 


TITSTM 


• 177777 


T29RDF 


026720 


T30PK2 


036610 


SPM1 


105706 


TSDBH » 


000001 G 


T$T5'S« 


• 000001 


T29RDG 


031643 


T30PK3 


036620 


SPH* 


105736 


TSFCOD 


007314 


TI$AU 


• 010031 


T29RES 


032146 


T30PTB 


037242 


5PM6 


105766 


TSREJ - 


000006 


T$$AUT 


• 010033 


T29RIB 


031724 


T30RB 


036622 


SPM7 


106016 


TSSDEF 


006664 


TI$CLE 


• 010034 


T29RN 


026456 


T30RDF 


037413 


SRO 


177572 


TSSR - 


000002 G 


TIIDU 


• 010032 


T29RNC 


030354 


T30ROG 


037471 


SRI 


1775/4 


TSSRBI 


003476 G 


TiiHAR 


■ 010075 


T29RRF 


C26767 


T30RES 


041252 


SR2 


177576 


TSSRFO 


0064 73 


7$$HW 


■ 010000 


T29RRG 


027103 


T30RIB 


036745 


SR3 


172516 


TSSRH • 


000003 G 


TSIINI 


• 010030 


T299RN 


032024 


T30RN 


036636 


ssn 


000200 


TSSX 


004014 


T$iMSG 


• 010025 


*■' >RSZ 


0264 76 


T30RRM 


040655 


STATCO 


012472 


TS1BLK 


002744 G 


TilPRO 


- 010027 


T29RT2 


032240 


T30RRN 


040733 


SVCGBL- 


000000 


TSTCNT 


002206 G 


TilRPT 


- 010035 


T29RT3 


032302 


T30RRP 


041012 


SVCINS- 


000000 


TSTEND 


017000 


THSOF 


- 010076 


T29RUN 


030305 


T30RT2 


041344 


SVCSIE- 


^00001 


TSTFLA 


002306 G 


T$$SRV 


- 010026 


T29SC 


027217 


T30RT3 


041406 


5VCTAG- 


Ov 00 


TSTLOO 


016536 G 


T$* c ' ^ 


- 010074 


T29SSR 


027507 


T30RWN 


040240 


SVCTST- 


000001 


TSTPTR 


002310 G 


Tt». 


* 010001 


T29SZ 


026446 


T30SKM 


037114 


S$LS>M» 


010000 


TSTSET 


016570 G 


T$$1^S 


- 010073 


T29S2 


026452 


T30SSR 


037711 


SO.IOB- 


000010 


TST29I 


032117 


Tl 


023526 G 


T29S3 


026454 


T30SZ 


036626 


SO.IFB- 


000002 


TST30I 


041231 


Tl.l 


023556 


T29TM 


030227 


T30S2 


036632 


SO.IFP- 


000001 


TST31I 


046543 


T1.2 


024206 


T29TRL 


031457 


T30S3 


036634 


SO.ILD- 


000020 


TST32I 


0526*0 


TL3 


024730 


T29VCK 


030771 


T30TM 


040106 


SO.ION- 


000040 


TST33I 


055645 


T1.4 


025454 


T29W6 


026442 


T30TMK 


040514 


SO.IRD- 


000100 


TST34I 


063207 


T2 


032334 G 


T29WDC 


030677 


T30TM2 


040163 


SO.IRW 


0000C4 


TST35I 


073' 33 


T2.1 


032360 


T29WDD 


030570 


T30TPB 


037333 


SO. ISP- 


000200 


TST36I 


100717 


T2.2 


033752 


T29U0E 


027562 


T30VCK 


040441 


SI. ICE - 


002000 


TST37I 


105343 


T2.3 


035376 


T29W0F 


027351 


T30WQ 


036622 


Sl.IEO 


0.0000 


TSV2 


002000 G 


T2.4 


035772 


T29W0R 


026460 


T3owor 


040362 


S1.IFM= 


001000 


TSV3 


002170 G 


T23A 


003136 G 


T29WLK 


027644 


T30W / 


037170 


SLIMS- 


000400 


TSV4 


021626 G 


T23B 


003140 G 


T29WNG 


026523 


T30Wui 


037762 


Sl.IID- 


004000 


TSV6 


105544 G 


T29AM3 


030427 


T29URT 


027731 


T30WDF 


037553 


SLUR' 


02COO0 


TSV7B 


023526 G 


T296A 


031044 


T29WSS 


031136 


T31AM3 


045016 


SLI2R' 


C40000 


TTIBFR" 


177562 G 


T296FR 


026342 


T3 


041432 G 


T31BA 


045356 


SI. PAR' 


100000 


TTICSR- 


• 177560 G 


T29BF2 


026450 


T3eFLG 


003142 G 


T31BFR 


043212 


S2.ATI' 


• 000010 


TTIVEC- 


■ 000060 G 


T29B0T 


027776 


T3.1 


041462 


T31BF2 


043320 


S2.BTI 


■ 000004 


TiARGC- 


« 000003 


T296S0 


026450 


T3.2 


042340 


T3100T 


044345 


S2.DIM 


■ 000200 


TiCOOE- 


* 001130 


T29B51 


026451 


T30BFR 


036522 


T31BS0 


043320 


S2.ILW; 


= 000100 


T*ERRN 


■ 001620 


T29CNT 


0264 74 


T30BF2 


036630 


T31BS1 


043321 



Ml 



TSV6 - PARAMETER COOING 
SYMBOL TPHLE 

T31CNT ^5336 

T31CNU 043340 

T31C0N 043332 

131DAT M3200 

T31D.Y 043342 

T3)0ttJ 043210 

T3.u A 046446 

T3i.£0T 044540 

T.ULON 045520 

T^ILOO 041462 

T31L0P 045602 

T31L0Q 044116 

T31L0R 043771 

.'31NEF 046040 

^310FL 045065 

T31PAC 04317C 

T31PBP 045664 

T31P;<2 043300 

T31PK3 043310 

T31RB 043312 

T31RDE 043344 

T31RDF 043543 

T31RES 046610 

TJ1RN 043326 

T31RNC 044743 

T31RRF 043612 

T31RT2 046702 

T31RT3 046744 

T31RWN 0n4674 

T3isr a;3707 

T31SCF 046161 

T31SSR 044177 

T31SZ 043316 

T31S2 043322 

T31S3 0433^4 

T31TIM 044440 

T31TM 044617 

T31TRL 04.5752 

T31TSA 046236 

T31VCK 04. 303 

T31WB 043312 

131W0C 045230 

T31W0D 045140 

T31U0E 044233 

T31W0F 044041 

T31W0R 043330 

T31WNG 043471 

T31UTW 043410 

T31WRF 046343 

T31USS 045431 

T32AMd 05174 7 

T32BA 052063 

T32B^R 051352 

T32B0E 052366 

T32B0T 051516 

132CMD C51460 

T32CNT 051510 
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T32CNU 


051512 


T3^BA 


063046 


T320AT 


051340 


T34^ER 


060562 


T32DLY 


0515.4 


T34^2 


060676 


T32DSW 


051350 


T34L0T 


061234 


T32ECF 


052455 


T34BS0 


060676 


T32E0T 


051611 


T34BS1 


060677 


T32ERA 


052016 


T34CNT 


060672 


T32L00 


04 7020 


T34CON 


060710 


T320PI 


052603 


T340AT 


060550 


T32PAC 


051330 


T34DLY 


0606 74 


T32PK2 


051440 


T34DSW 


060560 


T32PK3 


051450 


T34E0T 


062205 


T32RB 


051452 


T34ET 


062116 


T32RES 


052700 


T34ETC 


061157 


T32RIB 


052136 


T34ETN 


061451 


T32RT2 


052772 


T34ET0 


061002 


T32RT3 


053022 


T34ETS 


061530 


T32RWN 


051700 


T34ETZ 


061622 


T32SCF 


052234 


T34ET2 


061367 


T32SZ 


051456 


T34L00 


056072 


T32TSA 


052311 


T340FL 


062527 


T32WB 


051452 


T34PAC 


060540 


T32WDC 


052536 


T34PK2 


060650 


T33BFR 


054572 


T34PK3 


060660 


T33BF2 


054700 


T34P0S 


060714 


T33B0T 


055325 


T34RB 


060662 


T33BS0 


054700 


T34RES 


063232 


T33B51 


054701 


T34RNC 


062406 


T33CNT 


054716 


T34RRE 


061066 


T33CNU 


054720 


T34RSZ 


060670 


T3^C0N 


054712 


T34RT2 


063324 


T33DAT 


054560 


T34RT3 


063366 


T330LY 


054 722 


T34RWN 


062337 


T33DSW 


054570 


T34SSR 


062063 


T330TA 


055550 


T34STM 


061700 


T33LOO 


053076 


T34SZ 


060666 


T33PAC 


054550 


T34S2 


060700 


T33PK2 


054660 


T34S3 


060702 


T33PK3 


054670 


T34TM 


062263 


T33RC 


054672 


T34TMK 


061763 


T33RBP 


054^24 


T34VCK 


062773 


T33RES 


055662 


T34W6 


060662 


T33RN 


054 706 


T34W0 


060704 


T33RT2 


055754 


T34W0C 


062671 


T33RT3 


056016 


T 34 WOO 


062602 


T33RWN 


055420 


T34W0R 


060706 


T33SSR 


055241 


T34USS 


063120 


T33SZ 


054676 


T34UTM 


061300 


T3JS2 


054 702 


T35AM3 


070766 


T33S3 


054704 


T35BA 


071326 


T33UNC 


055062 


T35BFR 


067412 


T33UNO 


055152 


T35BF2 


067520 


T33WB 


054672 


T35B0T 


070340 


T33UDC 


055467 


T35BS0 


067520 


T33U0R 


054710 


T35BS1 


067521 


T33WPW 


055002 


T35CNT 


067536 


T34AM3 


062461 


T35CNU 


067540 





SEQ 219 


T35C0N 


C-V532 


T350AT 


067400 


T35DLY 


067542 


T35DSW 


067410 


T35DTA 


072325 


T35E0T 


070510 


T35INT 


072601 


T3SL0N 


071470 


T35L00 


063444 


T35L0P 


071552 


T35L0Q 


070205 


T35L0R 


070060 


T35M0T 


072503 


T35NEF 


072010 


T35NIN 


073056 


T350FL 


071035 


T350HM 


072672 


T35PAC 


0673/0 


T35PBP 


071634 


T35PK2 


067500 


T35PK3 


067510 


T35RB 


067512 


T35RDF 


067632 


T35RES 


073164 


T35RN 


067526 


T35RNC 


070713 


T35RRF 


067701 


T35RT2 


073256 


T35RT3 


073320 


T35RWE 


072770 


T35RWN 


070644 


T35SC 


067776 


T355CF 


072106 


T355SR 


072422 


T35SZ 


067516 


T35S2 


067522 


T35S3 


067524 


T3'5TIM 


070433 


T35TM 


07056V 


T35TRL 


071/22 


T35TSA 


072163 


T35VCK 


071253 


T35WB 


067512 


T35W0C 


071200 


T35W00 


071110 


T35U0E 


070266 


T35W0F 


070130 


T35UDR 


067530 


T35WNG 


067544 


T35WRF 


072245 


T35US5 


071401 


T36AM3 


077263 


T363A 


077623 


T36BFR 


075602 


T3ftBF2 


075710 


T36B0T 


076635 


T36BS0 


075710 



T36BS1 

T36CNT 

T36CNU 

T36C0N 

T36DAT 

Y36DLY 

T36DSW 

T36DTA 

T36E0T 

T36L0N 

T36L00 

T36L0P 

T36L0Q 

T36L0R 

T36NAS 

T36NEF 

T360FL 

T36PAC 

T36PBP 

T36PK2 

T36PK3 

T36RB 

T36RDF 

T36RES 

T36RN 

T36RNC 
T36RRF 

T36RT2 

T36RT3 

T36RWN 

T36SC 

T36SCF 

T36SSR 

T36SZ 

T36S2 

T36S3 

T36TII. 

T36TM 

T36TRL 

T36TSA 

T36VCK 

T36WB 

T36WDC 

T36WDD 

T36WDE 

T36WDF 

T36WDR 

T36WNG 

T36URF 

T36WSS 

T37AM3 

T37BA 

T37BFR 

T37BF2 

T37B0T 

T37B50 

T37B51 



075711 

075726 

075730 

075722 

075570 

075732 

075600 

100622 

077005 

077765 

073400 

100047 

076446 

076321 

075734 

100305 

077332 

075560 

100131 

075670 

075700 

075702 

076073 

100740 

075716 

077210 

076142 

101032 

101074 

077141 

076237 

100*0$ 

765; t 

u/570:i 

075712 

75714 

0767 30 

07 7064 

100217 

100460 

077550 

075702 

077475 

077405 

076563 

076371 

075720 

076005 

100542 

077676 

103707 

104247 

102262 

102370 

103261 

102370 

102371 



Ni 
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symcol 


TABU 










T37CNT 


102406 


T37SSR 


103136 


T7,4 


066444 


T37CNU 


102410 


T37SZ 


102366 


T8 


073344 G 


T37C0N 


102402 


T37S2 


102372 


T8.1 


073400 


T37DAT 


10^250 


T37S3 


102374 


T8.2 


074454 


I370LY 


102412 


T37TIM 


103354 


T9 


101120 G 


T?7DSW 


102260 


T37TM 


103510 


T9.1 


101154 


I37DTA 


105246 


T37TRL 


104643 


UAM 


000200 G 


T37E0T 


103431 


T37TSA 


105104 


UNITN 


002174 G 


T37L0N 


104411 


T37VCK 


104174 


UNREC - 


000006 


T37L0O 


101154 


T37WB 


102362 


USI 


004117 


137L0P 


104473 


T37WDC 


104121 


WAITF 


016330 G 


T37L0Q 


103055 


T37U0D 


104031 


WC.IFA- 


000200 


T37L0R 


102730 


T37W0E 


103172 


WC.IFE- 


000002 


T37NEF 


104731 


T37WDF 


103000 


WC.IGO- 


000001 


T370FL 


103756 


T371/OR 


102400 


WC.IRE- 


000010 


T37PAC 


102240 


T37WNG 


102414 


WCIRU- 


000004 


T37PBP 


104555 


T37W2F 


105166 


VJC.IOT- 


000100 


T37PK2 


102350 


T37WSS 


104322 


WC.I1T- 


000040 


T37PK3 


102360 


T4 


046770 G 


WCI5R- 


000020 


T37RB 


102362 


T4.1 


047020 


WF.IEO- 


000010 


T57ROF 


102502 


T«.2 


04 7660 


WF.IER- 


000004 


T3VRES 


105364 


T4.3 


050470 


WF.IHI- 


000200 


T37RN 


102376 


T5 


053046 G 


Wf.IRE* 


000040 


T37RNC 


103634 


T!:.l 


053076 


UF,IWF- 


000020 


T37RRF 


102551 


T6 


056042 G 


yf.iwR- 


000100 


T37RT2 


105*56 


T6.1 


056072 


WF.I3R- 


000002 


T37RT3 


105520 


T7 


063414 G 


WF.I4R- 


000001 


T37RWN 


103565 


T7.1 


063444 


WRTCHR 


010742 G 


T37SC 


102646 


T7.2 


064522 


WRTERR 


005107 


T37SCF 


105027 


T T .3 


065602 


WRTMSG 


005052 


. ABS. 


106404 
OOOOOO 


000 
001 








ERRORS 


DETECTED: 














S£Q 2i . 


WSMBK 


021350 G 


XFERAS 


016020 


XNXM 


016456 


XOPBFO 


007752 


XORFOR 


010070 


XSTO * 


000006 G 


XST1 - 


000010 G 


XST2 - 


000012 G 


X5T3 ■ 


000014 G 


XST4 ■ 


000016 G 


XS080T- 


• 000002 


XSOEOT- 


■ 000001 


XSOIE - 


■ 000040 


XSOILA 


• 000400 


XSOILC- 


■ 001000 


XSOLET' 


■ 02C000 


XSOMOT" 


» 000200 


XSONCF- 


■ 002000 


XSOONL- 


• 000100 


XSOPED 


■ 000010 


XSORLL 


■ 010000 


XSORLS 


■ 040000 


XSOTMK 


- 100000 


XSOVCX 


■ 000020 


XSOULE 


• 004000 


X50WLK 


■ 000004 


XXCOhM 


003114 G 


XtALWA 


- OOOOOO 


X$FALS 


- 000040 



XiOFFS 

X$TRUE 

XI, COR 

Xl.OLT 

X1,MBZ 

Xl.RBP 

XI, SPA 

Xl.UNC 

X2. 'JF 

X2,EXT 

X2,0PM 

X2.RCE 

X2.REV 

X2.SPA 

X2.UNI 

X2.WCF 

X3.DCK 

X3.M8Z 

X3.M0E 

X3,0PI 

X3.REV 

X3.RIB 

X3,SPA 

X3.TRF 

X4.HSP 

X4.MBZ 

X4.RCE 

X4.TSM 

X4 , WRC 



000400 

000020 

020000 

100000 

017375 

000400 

040000 

000002 

000100 

000200 

1000C0 

040000 

00007 7 

035400 

000007 

002000 

OOOOIO 

000006 

177400 

000100 

000040 

0OO001 

000200 

000020 

100000 

017400 

040000 

020000 

000377 



VIRTUAL MfM0R> USE): 30328 WORDS ( 119 PAGES) 
DYNAMIC MEMORY: 2J614 WORDS C 79 PAGES) 
ELAPS1D TIME. 00:1:5:58 
CVTSDB I CVTSDB,SEQ/-SP«SVC/ML,TSV1D,T5V22D,TSV3B,TSV4,TSV7B.TSV6 
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...CI 


TEST 9: FUNCTION TI. 


...01 


TEST 9: FUNCTION TI. 


...El 


TEST 9: FUNCTION TI. 


., Fl 
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...Gl 


TEST 9: FUNCTION TI. 


...HI 


SOFTWARE PARAMETER C. 


...11 


SYMBOL TABLE 


...Jl 


SYt«OL TABLE 


...Kl 


SYMBOL TABLE 


...LI 


SYMBOL TABLE 


...Ml 


SYMBOL TABLE 


...Nl 



